pseudocode

[phthalombrage]

Dim intPirouettes As Integer
intPirouettes = Val(Me.txtNumberOfRotations.Text)

Select Case intPirouettes
Case Is > 4
Me.lblTeacherMessage.Text = "Wow."
Case 4
Me.lblTeacherMessage.Text = "That was acceptable."
Case 3
Me.lblTeacherMessage.Text = "Meh."
Case Else
Me.lblTeacherMessage = "You suck."
End Select

'I miss Mark and Ginny