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 |