Dim Wert1 as Double
 
Wert1 = Double.Parse(Textbox1.text) ' in der Textbox MUSS eine Zahl stehen sonst 
                                    ' System.FormatException
 
dim ret as Boolean
 
ret = Double.TryParse(Textbox1.Text , Wert1)
 
if ret = False then
    Messagebox.show("In der Textbox stand was anderes als Zahlen oder nichts!")
End If