medalistsCase

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim position As Integer
        position = CInt(TextBox1.Text)
        Select Case position
            Case 1
                TextBox2.Text = "Gold Medlist"
            Case 2
                TextBox2.Text = "Silver Medlist"
            Case 3
                TextBox2.Text = "Bronze Medlist"
            Case 4, 5
                TextBox2.Text = "You almost won a medal"
            Case Else
                TextBox2.Text = "Nice Try"
        End Select
    End Sub
End Class