presidentNameCase

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim input As String = TextBox1.Text
        Select Case input
            Case "Thomas"
                TextBox2.Text = "Correct!"
            Case Else
                TextBox2.Text = "Nice try."
        End Select
    End Sub
End Class