If Objecto/Variable [Operador] Valor then
	' Code si el valor es verdadero
End if

If Text1.Text = "Juan" then
	Msgbox "Ha eres Juancho"
End if

If Text1.text <> "Juan" then
	Msgbox "Tu no eres Juan..!!!, Escribe Juan..!!!"
end if

If Objeto/Variable [Operador] Valor And Objeto/Variable = Valor then
	' Code si los valores son verdaderos
End if

If Text1.Text = "Admin" And Text2.Text = "1234" then
	MsgBox "Eres el Admin."
end if

If Objeto/Var [Operador] "Valor1" or Objeto/Var = "Valor2" then
       ' Code si es Valor1 o es Valor2
End if

If Text1.text = "Admin" or Text1.text = "User" then
	Msgbox "Bienvenido " & Text1.text
end if

If Objeto/Var [Operador] "Valor" then
	' Code si es Verdadero
Else
	' Code si es falso
end if

If Text1.text = "Juan" then
	MsgBox "Bienvenido Juan.."
Else
	MsgBox "Usuario Incorrecto..!!!"
end if

Sub Main()
    Dim años As Integer, r As String
    años = Val(InputBox("Edad", "Edad", "18"))
    r = CStr(InputBox("Raza", "Raza", "Albino"))
    retorno = IIf(años < 18, "Menor de 18" & IIf(r <> "", ", y es " & r, ""), "Mayor de 18" & IIf(r <> "", ", y es " & r, ""))
    MsgBox retorno, vbOKOnly + vbInformation, "Retorno No. 1"
    Call Main2(Val(años), CStr(r))
End Sub
 
Sub Main2(ByVal Edad As Integer, Raza As String)
    Dim años As Integer, r As String
    años = Edad
    r = Raza
    retorno = IIf(r <> "", ", y es " & r, "")
    retorno = IIf(años < 18, "Menor de 18" & retorno, "Mayor de 18" & retorno)
    MsgBox retorno, vbOKOnly + vbInformation, "Retorno No. 2"
End Sub