String to Decimal en Siebel

A veces en Siebel , cuando recogemos los datos numericos de un campo string nos puede sernos util pasar el string a Integer con valores decimales.
Con este código podemos salir del paso:


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