Dim eingabe As Object
        eingabe = InputBox("Geschwindigkeit [m/s]", "Eingabe")
        If Not IsNumeric(eingabe) Then
            MessageBox.Show(eingabe.ToString + " ist keine zahl!!")
            Exit Sub
        End If
        Dim v As Integer = Convert.ToInt32(eingabe)
        '[...]

 
        Try
            '[DEIN CODE]
        Catch ex As NotSupportedException When Not IsNumeric(v)
            MsgBox(ex.Message)
        End Try