Match worksheet function in VBA searching on multiple criteria

[snb]

In VBA:

Sub M_snb()
    y = CDate("2020/03/09 17:30:00")
    sn = Sheet1.Cells(1).CurrentRegion
    
    For j = 1 To UBound(sn)
      If sn(j, 1) + sn(j, 2) = y Then Exit For
    Next
    
    If j <= UBound(sn) Then MsgBox sn(j, 6)
End Sub