Acceso al programa mediante una clave

Private Sub Form_Load()
repe:  a = InputBox("Introduce la clave", "Clave")
If a = "uno" Then
b = MsgBox("Puedes continuar", vbOKOnly, "Bienvenido")
Else 
b = MsgBox("Acceso no permitido", vbCritical + vbRetryCancel, "Clave errónea")
If b = vbRetry Then GoTo repe
If b = vbCancel Then End
End If
End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)