' Usar IF THEN ELSE ENDIF en una misma línea:
' Visual Basic permite ejecutar una sentencia IF en una sóla línea.
' Inserte un CommandButton y un TextBox y escriba el siguiente código:
Private Sub Command1_Click()
Dim I As Integer
Dim A As String
I = 3
A = IIf(I <> 1, "True", "False")
Text1.Text = A
End Sub