prueba con esta sub:

Private Sub CambiarComaPunto(ByRef Cadena As String)
    Dim I As Integer
    I = InStr(1, Cadena, ",")
    Mid(Cadena, I, 1) = "."
End Sub

Le pasas la cadena que quieres que cambie p.e.: "245,05" y te la deja como
"245.05"

Un saludo JOSEK