Vlook up if return Value is Nothing

[mrsec]

Hello,

How do i put a something if lets say my return value is nothing(0) or blank in vlook up.

Private Sub textboxProductID_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo MyErrorHandler:
If KeyCode = vbKeyReturn Then
    Dim z As Double
    z = textboxProductID.Value
    textboxPrevious.Text = Application.WorksheetFunction.VLookup(z, Worksheets("Data").Range("TableRange"), 6, False) ----->"if False then it will show the Value that its looking for,if True to show "New Data" instead of just empty textbox.
               
    Else
End If
Exit Sub
MyErrorHandler:
If Err.Number = 1004 Then
 MsgBox "New Data."
End If
End Sub

 

[Zot]

Something like this

Private Sub textboxProductID_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

On Error GoTo errHandler
If KeyCode = vbKeyReturn Then
    Dim z As Double
    z = textboxProductID.Value
    textboxPrevious.Text = Application.WorksheetFunction.VLookup(z, Sheets("Data").Range("TableRange"), 6, False)
End If
If Me.textboxPrevious = "" Then Me.textboxPrevious = 1

errHandler:
If Err.Number = 1004 Then
    MsgBox "ID not in List"
    Me.textboxPrevious = ""
    Err.Clear
    Resume Next
End If

End Sub

 

[mrsec]

Something like this

Private Sub textboxProductID_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

On Error GoTo errHandler
If KeyCode = vbKeyReturn Then
    Dim z As Double
    z = textboxProductID.Value
    textboxPrevious.Text = Application.WorksheetFunction.VLookup(z, Sheets("Data").Range("TableRange"), 6, False)
End If
If Me.textboxPrevious = "" Then Me.textboxPrevious = 1

errHandler:
If Err.Number = 1004 Then
    MsgBox "ID not in List"
    Me.textboxPrevious = ""
    Err.Clear
    Resume Next
End If

End Sub

Thanks again Zot