salu2 peña

Ola a todos  ,vereis,soi un principiante en esto de lenguajes de programacion, , pero algo se....(lo minimo,pero es algo no? )
y haciendo "programas" k solo daban MsgBox me e decidio a acer otras cosas como programillas asi tipo chulos....vosotros me entendeis...
por ejemplo,keria krear un autentificador de contraseñas y puse esto en la linea de codigos:
Dim a, b As Integer
Private Sub Command1_Click()
a = Text1
b = Text2
If a = b Then Label3 = "Contraseña valida enhorabuena, no eres un cabezahueca"
If a <> b Then Label3 = "La contraseña no es correcta"
End Sub

pero me sale k esta mal,k tengo k cambiar Text2  ???, y claro lo k quiero acer simplemente es poner en text1 y text2 lo mismo es un programa "tonto" pero abrá kien se coma al coco averiguandolo,ejemplo de lo k puse en cada cosa

Text1 puse dentro La contraseña es incorrecta
Text2 lo dejé en blanco
asi para descubrirla tienes k copiar lo del texto1 y darle al boton validar,pero al poner eso de arriba me salen errores  ???

k puedo acer¿? gracias a to dios 

Para compara cadenas es mejor utilizar StrComp.


Saludos.

OK gracias por la ayuda 
pero ahora tengo otro problema 
vereis vi ace poco en la web www.boinasnegras.com un nivel k era poner una contraseña pero k era así: <b>negrita</b>
keria acer lo mismo mas bien personalicado pero igual para bisual basic y puse esto:

Dim A As String
Dim B As String
Dim C As String
Private Sub Command1_Click()
A = Text1.Text
B = Label4
C = Label5
If A <> B Then
Label3 = "La contraseña es incorrecta"
If A = B Then
Label3 = "Lo visible y lo invisible"
If A = C Then
Label3 = "Enhorabuena, has pasado el nivel 2, el codigo de autentificación es 3210"
End If

End Sub


pero me sale error y me señala Private Sub Command1_Click()

tambien me sale una ventana emergente diciendo esto:
compile error:
Block If without End if

a k se debe esto??? ???