'Learn how to use select case (also known as switch case).

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim num As Integer
    Dim strReply As String

    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "The number between 0 - 3."
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

        num = Int(TextBox1.Text)

        Select Case (num)

            Case 1
                strReply = "You typed in number one."

            Case 2
                strReply = "You typed in number two."

            Case 3
                strReply = "You typed in number three."

            Case Else  'none of the above
                strReply = "You typed in zero or other"
        End Select

        'display our comment
        Label1.Text = strReply
    End Sub
End Class