Private Sub TextBox3_Change()
Dim ss As Range
Set ss = Range("N1048400:O1048500")
On Error Resume Next
If Me.TextBox3 = "" Then
Me.TextBox4 = ""
Exit Sub
End If
Me.TextBox4 = Application.WorksheetFunction.VLookup(Val(Me.TextBox3.Value), ss, 2, False)
End Sub