VBA script - If Condition for file transfer based on table data base

[ijpbs]

This is the code i have changed.
'''
errorcatch:
MsgBox Err.Description
MsgBox Err.Number
MsgBox Err.Description & " Error Number - " & Err.Number
If Err.Number = "Error Number" Then Resume Next
'''
Error showing Type mismatch - Run time error 13.