Excel aufmöbeln mit VBA

Function KommaWeg(ByRef z As String) As String
Dim i As Long
i = InStr(z, ",")
If (i > 0) Then KommaWeg = Left(z, i - 1) & _
"." & Right(z, Len(z) - i)
End Function
Sub KommaWegSub(ByRef z As String)
z = KommaWeg(z)
End Sub
Sub KommaTest()
Dim pi As String, pipunkt As String
pi = "3,14"
pipunkt = KommaWeg("3,14")
KommaWegSub pi
’Aber nicht KommaWegSub(pi)
MsgBox "pi = " & pi & ", " & "pipunkt = " & pipunkt
End Sub
z String KommaWeg
KommaWegSub
KommaTest pi pipunkt