Validate Number From TextBox

Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    Dim NumberValue As Double = Nothing
    If Double.TryParse(TextBox1.Text, NumberValue) Then
        Diagnostics.Debug.WriteLine("Valid number is: " & NumberValue)
    End If
End Sub