Sub Form1_Load()
'エディット ボックスの初期文字列の設定
ActiveDialog.EditBoxes("エディット 4").Text = "|"
ActiveDialog.EditBoxes("エディット 5").Text = ""
'<エディット 4> に制御が移らないように設定
ActiveDialog.EditBoxes("エディット 4").Enabled = False
'ダイアログ ボックスのフォーカスを設定
ActiveDialog.Focus = "エディット 5"
End Sub
<エディット 5> に登録するマクロ
Sub Edit5_Change()
Dim SetText, InputText As String
'<エディット 5> に入力された文字列の取得
InputText = ActiveDialog.EditBoxes("エディット 5").Text
'<エディット 4> に表示する「*」の作成
If Len(InputText) = 0 Then
SetText = "|"
Else
SetText = String(Len(InputText), "*") & "|"
End If
'<エディット 4> に「*」を表示
ActiveDialog.EditBoxes("エディット 4").Text = SetText
End Sub
「パスワード入力」ダイアログ ボックスを表示するマクロ
Sub DlgSamp()
'ダイアログ ボックスの表示
DialogSheets("Dialog1").Show
'入力されたパスワードの表示
MsgBox DialogSheets("Dialog1").EditBoxes("エディット 5").Text
End Sub