How to show the result of application.vlookup function as TextBox.Value? - excel

Question

I´m creating a Userform that among other things displays the name of employee when the ID field is completed.
In TextBox1 the user enters the ID and in TextBox4 they will see their names.
The problem comes because I´m using Application.Vlookup to complete TextBox4.
I´m not sure where is the error here.
Private Sub TextBox1_Change()
Dim ws As Worksheet, rngvlook As Range
Dim val As String, result As Variant
Set rngvlook = Hoja3.Range("A:B")
val = TextBox1.Value
result = Application.VLookup(val, rngvlook, 2, False)
If IsError(result) Then
TextBox4.Value = ""
Else
TextBox4.Value = result
End If
End Sub
Bellow the error
Error '-2147352571 (80020005) on execution time
Value property can´t be set. Type mismatch

Answer 1

The error is in a way an "architecture" error. Take a look at this VLookups with the following input in Range("A:B"):
The following code returns probabaly something unexpected:
Sub SomeTest()
'Runs ok:
Debug.Print Application.VLookup(1, Range("A:B"), 2, False)
Debug.Print Application.VLookup("id1", Range("A:B"), 2, False)
Dim val1 As Variant: val1 = 1
Debug.Print Application.VLookup(val1, Range("A:B"), 2, False)
'Error 2042:
Debug.Print Application.VLookup("1", Range("A:B"), 2, False)
Dim val2 As String: val2 = 1
Debug.Print Application.VLookup(val2, Range("A:B"), 2, False)
End Sub
Thus, in your code, you go into the second part of the example, thus going to Error 2042. Try to "move" your code to the working sample, thus declare the val as a Variant.