Telefonnumernformat / Replace mit VBA

+4906214862024 0 0000 000000
+4113062362 000 00000
6142953072 0000 000000
+4902959031851
+494215390240 000 0000000
004118861284 0 000 00 00
+496921794599
0496921294171
+4908410934035

Nun möchte ich die Telefonnumern mit Replace zurechtschneiden.
Als Formel funktioniert =REPLACE(A1,LEN(A1),1,"") um die letzte Zahl abzuschneiden.
Wenn ich in VBA Replace benutze, scheint die Funktion völlig anders zu arbeiten.
activecell.value = REPLACE(activecell.value,LEN(activecell.value),1,"")
geht nicht da replace andere Parameter will.
Wie bekomme ich das mit VBA hin?
Hat jemand sonst irgendwelche Ideen wie ich die oberen Telefonnummern in das Standardformat bringen kann?

Bin für jeden Tipp dankbar