Error 1004 no se puede obtener la propiedad vlookup de la clase worksheetfunction

Es el problema que no me deja avanzar y vienen molestandome desde ayer, he intentado y buscado informacion en todas partes. Pero no logro dar la solucion, a lo que vi el VLookup no encuentra la informacion, pero ya me he fijado que todos los nombres y referencias esten bien. Asi que sinceramente no se cual sea el problema en si. Cualquier ayuda serviria bastante gracias.

Dejo el código:

Private Sub BotonBuscar_Click()

On Error Resume Next

Me.TextBoxNViaje.Text = Application.WorksheetFunction.VLookup(Me.TextBoxOp.Text, Hoja1.Range("A:I"), 2, 0)

Me.ComboBoxIdaVta.Text = Application.WorksheetFunction.VLookup(Me.TextBoxOp.Text, Hoja1.Range("A:I"), 3, 0)

Me.TextBoxFecha.Text = Application.WorksheetFunction.VLookup(Me.TextBoxOp.Text, Hoja1.Range("A:I"), 4, 0)

Me.ComboBoxProFle.Text = Application.WorksheetFunction.VLookup(Me.TextBoxOp.Text, Hoja1.Range("A:I"), 7, 0)

Me.ComboBoxFletero.Text = Application.WorksheetFunction.VLookup(Me.TextBoxOp.Text, Hoja1.Range("A:I"), 8, 0)

End Sub