\'studgrd means student grade \'mrk means Marks \'res means result
Function studgrd(mrk As Long) As String
Dim res As String
res.Formula = "=if(mrk