microsoft.visualbasic.isnumeric(textbox.text)
if textbox.text.equals(string.empty) then
'do whatever
end if
Dim num As Double
If Double.TryParse(Me.TextBox1.Text, Globalization.NumberStyles.Float, Nothing, num) Then
MessageBox.Show("You entered the number " & num.ToString())
Else
MessageBox.Show("Please enter a valid number.")
End If