A ver, prueba este ejemplo:
Código:
<%
Session.LCID = 2058 'Mexico (comas y punto)
sValor = "12.0003"
fValor = CDBL(sValor)
iValor = FIX (fValor)
decimales = fValor - iValor
response.write "Enteros: " & iValor & "<br>"
response.write "Decimales: " & FORMATNUMBER (decimales,2) & "<br>"
sDecimal = MID(sValor,InStr(sValor,".")+1, LEN(sValor))
response.write "Decimales (cadena): " & sDecimal & "<br>"
sSumando = "0."&STRING (Len(sDecimal)-1, "0") & "1"
response.write "Sumando: " & sSumando & "<br>"
Suma = fValor + CDBL(sSumando)
response.write fValor & " + " & sSumando & " = "& Suma &"<br>"
%>
Primero te pongo un ejemplo de como separar la parte entera de la decimal con conversiones solamente.
Otra forma es como tu lo pides:
1) sDecimal = MID(sValor,InStr(sValor,".")+1, LEN(sValor)) 'Corta la parte fraccionaria en base la posicion del punto.
2) sSumando = "0."&STRING (Len(sDecimal)-1, "0") & "1" 'Se crea una cadena con tantos ceros como decimales existan menos uno y se concatena el 1.
3) Suma = fValor + CDBL(sSumando) ' Se realiza la suma
Saludos