Public Class Form1

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

        age = Integer.Parse(TextBox1.Text)
        If age >= 18 Then
            MessageBox.Show("You may vote.")
        Else
            MessageBox.Show("You may eat ice cream.")
        End If
    End Sub
End Class