Sub SignIn2() Dim secretCode As String Do secretCode = InputBox("Enter your secret code:") If secretCode = "sp1045" Or secretCode = "" Then Exit Do Loop While secretCode <> "sp1045" End Sub