Quiero entrar como tipo de usuario invitado en varios formularios VBA y solo me active los botones acorde tipo de usuario.

Private Sub CommandButton1_Click()

If Texto1.Text = "" And Texto2.Text = "" Then

mensaje = MsgBox("Llena los campos vacios", vbCritical, "Rellenar")
Else

If Combo1.Text = "administrador" Then
If Texto1.Text = "administrador" And Texto2.Text = "admin" Then
UserForm1.Hide
UserForm2.CommandButton1.Enabled = True
UserForm2.CommandButton2.Enabled = True
UserForm2.CommandButton3.Enabled = True
UserForm2.CommandButton4.Enabled = True
UserForm2.Show
Else
mensaje = MsgBox("Clave o Usuario Incorrecto", vbCritical, "Contraseña Erronea")
Texto1.Text = ""
Texto2.Text = ""
Texto1.SetFocus
End If

ElseIf Combo1.Text = "invitado" Then
If Texto1.Text = "invitado" And Texto2.Text = "invit" Then
UserForm1.Hide
UserForm2.CommandButton1.Enabled = True
UserForm2.CommandButton5.Enabled = True
UserForm2.CommandButton6.Enabled = True
UserForm2.CommandButton8.Enabled = True
UserForm2.Show
Else
mensaje = MsgBox("Clave o Usuario Incorrecto", vbCritical, "Contraseña Erronea")
Texto1.Text = ""
Texto2.Text = ""
Texto1.SetFocus
End If
Else
mensaje = MsgBox("Selecciona el tipo de Usuario", vbCritical, "Selecionar Usuario")

End If
End If

End Sub

Este código si funciona en el primer formulario, pero cuando quiero abrir mas formulario no me hace nada.