Buenas! Te creas un boton en tu menu principal y lo llamas x ejemplo boton.
Te vas al codigo y pegas esto:
Código:
Dim usuario, contraseña As String
Private Sub boton_Click()
usuario = InputBox("Introduzca nombre de usuario", "Usuario")
contraseña = InputBox("Introduzca contraseña", "Contraseña")
End Sub
y ya ta... espero q t sirva ;)