Use of IIF

Dim N As Integer
Dim CHECK As String

Private Sub Command1_Click()
N = Val(Text1.Text)
CHECK = IIf(N >= 18, "U R Eligible for Voting", "U R Not Eligible for Voting")
Label2.Caption = CHECK
End Sub