codice:
Dim s As String 
Dim n as Long 

s = "125.36" 
n = CSng(s)