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

Private Function ReplaceT(OutPut As Object, Txt1 As String, Txt2 As String, Line As Long)
Dim Spli() As String
Dim Tmp As String
Dim LineTmp As String
Spli = Split(OutPut, vbNewLine)
For i = 0 To UBound(Spli)
    If i = Val(Line - 1) Then
        LineTmp = Spli(Line - 1)
        LineTmp = Replace(LineTmp, Txt1, Txt2)
        Tmp = Tmp & LineTmp & vbNewLine
    Else
        Tmp = Tmp & Spli(i) & vbNewLine
    End If
Next i
ReplaceT = Tmp
End Function

Private Sub Command1_Click()
Text2.Text = ReplaceT(Text1, "Esto", "Por esto", 1)
End Sub