Only thing is that I still need to compute the average
That was dealt with a few posts ago: store your marks in a list (of single/decimal/integer/double/your choice) and use:
Code:
Dim average As Single = marks.Skip(2).Average