How to add an Else Msgbox to code like this?

[mageeg]

Hi I have written a very simple piece of code, which looks up a Batch Number, and then if found it pulls through the Job Number and Date of manufacture

the issue with this is that if the batch number does not exist, it simply pulls though no data. I would like a messagebox to then pop up saying "Batch Number not found"

Any help would be appreciated. See code below:

Private Sub BatchNo_AfterUpdate()
Dim MyTableArray As Range
Set MyTableArray = Sheets("SafetyValveData").Range("A:F")

On Error GoTo err_trap

'vlookup batch no

Me.JobNo.Value = WorksheetFunction.VLookup(Me.BatchNo.Value, MyTableArray, 4, 0)
Me.DateOfManufacture.Value = WorksheetFunction.VLookup(Me.BatchNo.Value, MyTableArray, 5, 0)

err_trap:
    
    Exit Sub


End Sub

 

[Fluff]

How about

Private Sub BatchNo_AfterUpdate()
Dim Res As Variant
Dim MyTableArray As Range
Set MyTableArray = Sheets("SafetyValveData").Range("A:F")


'vlookup batch no
Res = Application.VLookup(Me.BatchNo.Value, MyTableArray, 4, 0)
If IsError(Res) Then
   MsgBox "not found"
Else
   Me.JobNo.Value = Res
   Me.DateOfManufacture.Value = Application.VLookup(Me.BatchNo.Value, MyTableArray, 5, 0)
End If
End Sub