risolto cosi' un po rozzo ma funziona

Dim val1 AsSingle = 0

If Single.TryParse(Form1.TextBox1.Text, val1) Then
If val1 < 10 Then
val1 = val1 / 1
End If
If val1 > 10 Then
val1 = val1 / 100
End If
End If