lectura de cadenas en visual basic 6.0

'para poder usar este código, hay que agregar dos etiquetas label, 2 textbox y un commandbutton, el codigo se programa en el commandbutton dentro de un formulario

Private Sub Command1_Click()
If (Text1.Text = "leonor" And Text2.Text = "*****" Or Text1.Text = "keyla" And Text2.Text = "*******") Then

Form2.Show
Else
MsgBox "Error de contraseña", vbCritical
End If
End Sub