' 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