NoKeyPress

Private Sub Text1_Change()
'Append asterisk to text

Text1.Text = Text1.Text & "*"
End Sub
'_________________________________________________________


'Here's a better way:

Private Sub Text2_Change()
Dim lCurr As Long
'Append asterisk to text

lCurr = Text2.SelStart
If Right$(Text2.Text, 1) <> "*" Then
Text2.Text = Text2.Text & "*"
'Be kind and don't put the cursor at the front of the

'text

Text2.SelStart = lCurr
End If
End Sub