更明白点……
Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = 90 Text1 = String(2, "*") Text1.SelStart = 1End Sub