I am doing something simple, but its not working

[dimava]

can someone please tell me whats wrong:

Private Sub Command3_Click()

If txtuser.Text = Label2.Caption Then
If txtpass.Text = Label3.Caption Then
End
Else
If txtpass.Text = "ZQXWCEVRBT" Then
End

Else:
If Shape1.BackColor = &H8000000F Then
Shape1.BackColor = &HC0C0FF
Label6.ForeColor = &HFF&
Else
If Shape2.BackColor = &H8000000F Then
Shape2.BackColor = &HC0C0FF
Label7.ForeColor = &HFF&
Else
If Shape3.BackColor = &H8000000F Then
Shape3.BackColor = &HC0C0FF
Label8.ForeColor = &HFF&
Else
If Shape4.BackColor = &H8000000F Then
Shape4.BackColor = &HC0C0FF
Label9.ForeColor = &HFF&

End If
End If
End If
End If

End If
End If
End If

End Sub

I'm sure that this is simple, but I'm not sure what I'm doing wrong I'm thinking that maybe I cant put a IF after a ELSE:
please help