to textbokse

Prøv Validate (sørg for, at CausesValidation = True)

Hvad med en simpel if sætning.

If text1.text = \"andersen\" then
    text2.text = 1
end if

Kedde

hvis du tager Kedde eksempel og putter det ind i :

Sub text1_change()

End sub

så vil text2 ousomatisk skifte til \"1\" når du har skrevet andersen

er det sådan noget du mener.

Private Sub Form_Load()
  Text1.Text = \"andersen\"
  Text2.Text = \"\"
  Text2.Locked = True
End Sub

Private Sub Text1_Change()
Dim i As Long
Text2.Text = \"\"
  For i = 1 To Len(Text1.Text)
    Text2.Text = Val(Text2.Text) + Val(Asc(Mid$(Text1.Text, i, 1)))
  Next i
End Sub