Trucos de Visual Basic 6.0 Usar IF THEN ELSE ENDIF en una misma línea

Insertar un CommandButton y un TextBox y escribir 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