¡Hola amigos del Foro!
     Con respecto a la solución de este ejercicio Nº 3, yo le he dado esta (quizás no sea tan refinada, pero soy principiante también, y resulta correctamente)
Option Explicit

Form1.

Private Sub cmdAceptar_Click()
    If Len(txtUsuario) = 0 Then
        MsgBox ("¡Debe ingresar el nombre de Usuario!")
    End If
    If Len(txtClave.Text) = 0 Then
        MsgBox ("¡Debe ingresar su clave!"): Exit Sub
    End If
        Form2.Show
 
End Sub

Form2.

Option Explicit
Private Sub cmdAceptar_Click()
   If Len(txtConfirmacion) = 0 Then
        MsgBox ("¡Debe confirmar la clave!"): Exit Sub
    End If
    If txtConfirmacion = Form1.txtClave Then
        MsgBox ("¡Clave correcta!"): End
    End If
    If txtConfirmacion <> Form1.txtClave Then
Error:
        MsgBox ("¡Clave Incorrecta!, inténtelo de nuevo")
            txtConfirmacion = ""
            txtConfirmacion.SetFocus
   
   End If
End Sub

        Saludos.
                    Facirio.

¡Hola amigos del Foro!