Dim db As Double  'Zielvariable
If Double.TryParse(TextBox1.Text, db) Then
   'Parsen als Dezimalbruch klappt, Variable "db" enthält den Wert
Else
   'Der Inhalt von TextBox1.Text kann nicht in Double gewandelt werden
   MsgBox("Geben Sie einen Dezimalbruch ein!")
End If
 
'Alternative
If Not IsNumeric(TextBox1.Text) then 
   MsgBox("Geben Sie einen numerischen Wert ein!"): Exit Sub
End If

Dim ul as ULong
If ULong.TryParse(TextBox1.Text, ul) Then
   'Parsen als nichtnegative Ganzzahl klappt, Variable "ul" enthält den Wert
Else
   'Der Inhalt von TextBox1.Text kann nicht in eine 
   'ULong-Variable gewandelt werden
   MsgBox("Geben Sie eine nicht-negative Ganzzahl ein!")
End If