Password Example

Option Explicit

Sub Main

Dim intReturn As Integer

Dim varMessageText As Variant

Dim varPassword As Variant

Dim intMaxRetries As Integer

 varMessageText = "Enter Password"

 varPassword = "password"

 intMaxRetries = 3

 intReturn = Action2.Password (varMessageText, varPassword, intMaxRetries)

 If intReturn = 0 Then

  MsgBox "Failure"

  MsgBox( Action2.GetLastError )

 ElseIf intReturn = 1 Then

  MsgBox "Success"

 End If

End Sub