He investigado un poco sobre esto y aún no consigo que mi programa funcione. Simplemente necesito marcar el cuadro de texto para ver si la entrada del usuario es un valor numérico o no (con la excepción de un "." Y / o "/")

Mi código hasta ahora,

 Private Sub Num1_KeyPress(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num1.KeyPress
    Dim UserEntry As Boolean
    If UserEntry = IsNumeric(False) Then
        MessageBox.Show("That's not numeric!")
    End If
End Sub