Lo primero que tenés que tener en cuenta es conformar el entono, para lo cual necesitás un nuevo Form, dentro del form un TextBox y un CommandButton.
El TextBox tiene que tener en las propiedad PaswChar "o algo parecido", el valor " * " para que cuando escribas lo único que se muestre sean asteríscos.
Bien, ahora creá un Modulo.Bas y agregale la SubRutina Main.
' En el Modulo ponés
Private Sub Main( )
Form1.Show.
End Sub
' En el Form1 poné
Private Sub Command_Click( )
If Text1.Text = "MiClave" then
...............> podés cargar los formularios que vos quieras y abrir
así toda tu aplicación.
Unload Me
end if
End Sub