Public Class frmTeam
    Dim teamNumber As Integer

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        teamNumber = CInt(txtTeamNo.Text)
        If teamNumber = 1 Then
            txtTeam.Text = “Red Team”
        ElseIf teamNumber < 5 Then
            txtTeam.Text = “Blue Team”
        ElseIf teamNumber < 10 Then
            txtTeam.Text = “Yellow Team”
        Else
            txtTeam.Text = “Green Team”
        End If

    End Sub

End Class