Excel VBA Match関数を使用して値を探す・エラー判定方法

IsError(VarMatchRow) = True
上記あればエラーと判定します。

    Dim ObjThisSh  　　 As Object
    Dim LngMach         As Long
    Dim VarMatchRow     As Variant
    Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")
    
    LngMach = 0 '検索値
    VarMatchRow = Application.Match(LngMach, ObjThisSh.Range("A2:J2"), 0)

    If IsError(VarMatchRow) = True Then
        'データなし
    Else
        'データあり
        MsgBox (VarMatchRow)


    End If