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