convert all alphabets to "*" for password field in text box

how to convert all alphabets to "*" for password field in text box
Attachment 92461

code is


Private Sub Command1_Click()


If Text1.Text = "a" And Text2.Text = "a" Then
mCancel = False
mUsername = Me.Text1.Text
mPassword = Me.Text2.Text
MDIForm1.Show
Unload Me
Else
MsgBox "USERNAME AND PASSWORD IS WRONG"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Attached Images