TEXT CHANGE IN ANOTHER TEXT BOX WITH VLOOKUP

[SyedKhurramAli]

I am trying to use functions to calculate after change in text box 1 by using vlookup.

I am using following code:

Private Sub cmbItem1_change()
Me.txtRate1.Text = Application.VLookup(cmbItem1.Value, Sheets("Support Data").Range("A1:C17"), 2, 0)

End Sub

Private Sub cmbItem2_Change()
Me.txtRate2.Text = Application.VLookup(cmbItem2.Value, Sheets("Support Data").Range("A1:C17"), 2, 0)
End Sub

Private Sub cmbItem3_Change()
Me.txtRate3.Text = Application.VLookup(cmbItem3.Value, Sheets("Support Data").Range("A1:C17"), 2, 0)
End Sub

Private Sub cmbItem4_Change()
Me.txtRate4.Text = Application.VLookup(cmbItem4.Value, Sheets("Support Data").Range("A1:C17"), 2, 0)
End Sub

Private Sub cmbItem5_Change()
Me.txtRate5.Text = Application.VLookup(cmbItem5.Value, Sheets("Support Data").Range("A1:C17"), 2, 0)
End Sub

but every time I run, it shows the value from vlookup but at the time of saving in worksheet it give run time error, but data do go to worksheet. Please help

Private Sub cmbItem6_Change()
Me.txtRate6.Text = Application.VLookup(cmbItem6.Value, Sheets("Support Data").Range("A1:C17"), 2, 0)
End Sub