XL5: Creating a Masked Password Dialog Box in Visual Basic

      ' Dimension variable as public
      Public CancelFlag As Boolean

      Sub Main()
         ' Dimension variables.
         Dim password As String

         ' Set initial conditions.
         CancelFlag = False
         DialogSheets(1).EditBoxes("EditHidden").Text = ""

         ' Loop while password is incorrect and cancel button not pressed.
         While password <> "hello" And CancelFlag = False

            ' Set conditions for dialog box display.
            DialogSheets(1).EditBoxes("EditShown").Text = ""
            DialogSheets(1).EditBoxes("EditShown").Enabled = False

            ' Display the dialog box.
            DialogSheets(1).Show

            password = DialogSheets(1).EditBoxes("EditHidden").Text

         ' Continue loop until correct password is entered.
         Wend

         ' Check to see if the Cancel button is chosen.
         If CancelFlag = False Then

            ' If loop has ended and Cancel button has not been pressed,
            ' then password is correct.
            MsgBox "Correct password entered"

         Else

            MsgBox "Dialog was canceled."

         End If
      End Sub

      ' Macro assigned to EditHidden Edit box.
      Sub PasswordMask()
         ' Dimension variables.
         Dim MaskString As String, i As Integer

         MaskString = ""

         ' Match mask string length to length of text entered.
         For i = 1 To Len(DialogSheets(1).EditBoxes("EditHidden").Text)
            MaskString = MaskString & "*"
         Next i

         ' Enter mask string in EditShown Edit box.
         DialogSheets(1).EditBoxes("EditShown").Text = MaskString

      End Sub

      ' Macro assigned to the Cancel button.
      Sub Canceled()

         ' Cancel chosen, set CancelFlag value to True.
         CancelFlag = True

      End Sub