Sub vlookup1()
    Dim student_id As Long
    Dim marks As Long
    student_id = 11004
    Set myrange = Range(“B4:D8”)
    marks = Application.WorksheetFunction.VLookup(student_id, myrange, 3, False)
End Sub