Cambiar comas a puntos decimales

La siguiente función cambia el separador decimal por un punto, si el que se utiliza es una coma. Si le pasas la cadena que quieres que cambie p.e.: “245,05″ y te la deja como “245.05″.

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

Fuente: Xavi