A veces puede sernos útil pasar un string a decimales.
Para ello podemos utilizar la siguiente solución.

Function TraducirDecimal(CantidadInicial As String)

Dim strResultado As String
Dim intPosicionComa As Integer

strResultado = CantidadInicial
intPosicionComa = InStr(CantidadInicial, ",")

If (intPosicionComa > 0) Then
strResultado = Left(CantidadInicial, intPosicionComa – 1) & "." & Right(CantidadInicial, Len(CantidadInicial) – intPosicionComa)
End If