Prima di tutto Grazie mille per l'aiuto che mi stai dando. Eccoti quello che ho fatto.

Nella Text1 ho inserito questo codice:

Private Sub Text1_Change()
If Text1.Text = "Mario" Then
Text2.Text = "Rossi"
Label1.Caption = "Impiegato"
End If

End Sub

Con questo funge ma se cambio i nomi "Mario, Rossi e Impiegato" (sempre nel codice)
sostituentolo ad sempio con :

508321901234 al posto di Mario
CA57123 al posto di Rossi e
XSB5 al posto di Impiegato non va! perchè
non capisco!