Usando InputBox

' Gambas class file
'colocar un label en el formulario

Public Sub Form_Open()
Dim frase As String

frase = InputBox("Inserte contraseña", "Autentificación", "Ingrese contraseña aquí")
If frase = "gambas2345" Then
  Label1.Caption = "Bienvenido administrador"
Else
  Me.Close
Endif


End