Cita:
Iniciado por s00rk 
algo que tambien te puede servir seria utilizar Split mira y quedaria algo asi
Código vb:
Ver originalDim t As String = "50.05" ' o TextBox1
Dim s As String() = Split(t, ".")
MsgBox(s(1))
bueno ahi tambie pudiese ser una solucion jeje
Gracias buena solucion!!! . . .
aunq todavia me queda la duda del porque muestra ese resultado
y una solucion alternativoa fue
Código:
Dim t As Decimal = 50.05
Dim Res As Decimal
Res= Math.Round(CDec(t) - CInt(t), 2)'Redondea(50.05-50)
msgbox Res * 100 'Ya muestra 5 y no 4.999999972
Saludos