Refuerzo: Validacion de datos

PublicClass Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As String
n = InputBox("ingrese un valor")
If IsNumeric(n) Then
Label1.Text = "Valor numerico"
TextBox1.Text = nElse
Label1.Text = "Valor no valido"
TextBox1.Text = " "
End If
End Sub
End Class