Language Basics VisualBasic Script

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