Hi Everyone
At first I had a code like following
' TextBox2 = Application.VLookup(TextBox1.Value,
Sheet4.Range("staff"), 2)
but that one does not work. Instead I modified like follows

Private Sub CommandButton4_Click()
TextBox2 = Application.VLookup(Sheet4.Range("g4"),
Sheet4.Range("staff"), 2)
End Sub

Private Sub TextBox1_Change()
Sheet4.Range("G4") = TextBox1.Value
End Sub
in that case it worked well. But why my first code did not work?Any
idea?
Thanks for the help...
Have a good day