If Code

[Nitefox]

how would I code the following:

If
Me.Password = aCell.Offset(, 1) 
&
Username.Value = Admin
Then
Sheets("Users").Range("G1").Value = Username.Value
Sheets("EquipmentData").Visible = True
Sheets("ReturnData").Visible = True
Sheets("Search").Visible = True
Sheets("EmailSettings").Visible = True
Sheets("RentalHouses").Visible = True
Sheets("UnitList").Visible = True
Sheets("Users").Visible = True
Sheets("Welcome").Visible = xlVeryHidden
Sheets("ReturnData").Activate
Unload Me
If
Me.Password = aCell.Offset(, 1) 
&
Username.Value = 'Anything other than Admin'
Then
Sheets("Users").Range("G1").Value = Username.Value
Sheets("EquipmentData").Visible = True
Sheets("ReturnData").Visible = True
Sheets("Search").Visible = True
Sheets("EmailSettings").Visible = True
Sheets("RentalHouses").Visible = True
Sheets("UnitList").Visible = True
Sheets("Users").Visible = True
Sheets("Welcome").Visible = xlVeryHidden
Sheets("ReturnData").Activate
Unload Me
Else (to the original IF)
MsgBox "Incorrect password, please try again", vbOKOnly