разобраться в коде VB10

[Bathis]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Single
        N = Val(TextBox1.Text("Ввод числа x"))
        Print("Число N= ")
        If (N >= 100) And (N <= 999) Then
            MsgBox("Продолжает работу")
        Else
            MsgBox("Ошибка")

        End If