A veces en Siebel , cuando recogemos los datos numéricos de un campo string nos puede sernos útil 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