Thanks for looking at this.
Form Data:
I have a multipage userform. On page 3, I have a dropdown combobox called
cboAtty that autofills from ROWSOURSE properties =Data!A2:A30 (Sheet Data).
This part works fine.
Also, located on the same form is a TexBox called tbBar:

Data:
On another sheet called Data I have the same info as A2:A30, then in B2:B30
a number associated to each A column data.
Now Back to the Combo Box called cboAtty, I have the following Code that
fails with the message.
Run-time error '-2147352571 (80020005)':
Could not set the Value property. Type mismatch

Private Sub cboAtty_Change()
tbBar.Value = Application.VLookup _
(cboAtty.Value, Sheet1.Range("A2:B30"), 2, False)
End Sub

My Objective is to have the TextBox tbBar to autofill based on my selection
of the DropDown ComboBox called cboAtty.
Thanks