Excel VBA vlookup

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
Thoughtless Tapir