Minus umwandeln

Ich habe in einer Excel-Tabelle einzelne Zahlen (bzw. Text), bei dem das Minuszeichen hinten steht (100-). Da Excel dies als Text ansieht, versuche ich nun das Minuszeichen voranzustellen, so dass wirklich eine Zahl daraus entsteht.

Das Ganze ist Teil einer grösseren VBA-Prozedur.

Mein Versuch hat leider nicht geklappt:

Sub Minus()
Dim c As Range
For Each c In ActiveSheet.Columns("G:G")
If Right(c.Value, 1) = "-" Then _
c = ("-" & Left(c, Len(c) - 1))
Next c
End Sub

Ich hoffe, dass mir hier jemand weiterhelfen kann.
Besten Dank.
Maria