Tom,
The password character "*" was bothering me. So I spent a few hours working this out. I hope it's what you were looking for. Please let me know.
Sub main
Begin Dialog joe 60,60,140,185,"Enter Password"
OKButton 10,50,40,12
CancelButton 10,70,40,12
Text 10,10,120,12, "Password is Not Case Sensitive",.Pin1
TextBox 10,30,40,12,.Pin,32
End Dialog
Dim Dlg1 As joe
Button = Dialog (Dlg1)
If Button = 0 Then Exit Sub
If Dlg1.Pin = "Tom" Then DoOEMButton (5)
If Dlg1.Pin = "Chuck" Then DoOEMButton (1)
End Sub
Chuck