yo lo he hecho asi:

creo que es mas facil de entender para los mas inexpertos mi codigo, en lugar que el de m3ll1 (que tambien esta muy bien ehh, vi que m3ll1 habia hecho el ejercicio 3 y dije haber si yo tmb soy kapaz de hacerlo (sin mirar, porsupuesto)

Este es mi codigo:

formulario1:


formulario2:


PD: a todo esto komo se hace para que el kodigo salga en blanco komo haceis la mayoria ????

ok muxas gracias

Hola
Empieza por el primero y cuando te pares lo dices.
Para eso están

Un saludo

¡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.