Fai doppio click sulla TextBox1 si aprira la finestra del codice e ti ritrovi nella funzione che viene richiamata quando scrivi qualcosa nella TextBox1(la funzione è appunto la TextBox1_TextChange). All'interno della suddetta funzione scrivi un codice tipo questo:
codice:
if textbox1.text = "507767675768" Then
     textbox2.text = "CA77857"
     label1.caption  = "XSB4"
else
     textbox2.text = ""
     label1.caption  = ""
End if