Error de vlookup en textbox

valor2 = ApplicationWorksheetFunction.VLookup(valor1, Worksheets("PM1").Range("JF9:KB1000"), 23, False)
Probaste que la instrucción fuera con punto y coma en lugar de solo comas.
En todo caso si sigues con problema podemos hacer una búsqueda con la instrucción While.

Gracias por tu rápida respuesta. En efecto lo he probado pero el problema persiste.
Copie mal la secuencia
Private Sub CommandButton1_Click()
Dim valor1, valor2 As Variant
valor1 = UserForm2.TextBox1.Value
valor2 = ApplicationWorksheetFunction.VLookup(valor1, Worksheets("PM1").Range("JF9:KB1000"), 23, False)
UserForm2.TextBox2.value = valor2
End Sub
El problema aparece a partir de la línea valor2=... Lo he comprobado en excel, saliendo del VBA, BUSCARV(PM1! A1;PM1!JF9:PM1!KB1000;23), en este caso sí busca el valor.
Atentamente ATOL