Ich gehe davon aus,das dein Programm beim Klick auf den Ausrechnen Button
den Durchschnitt berechnen soll.
Du machst einen doppelklick auf den button in deiner Form.

Code für die Funktion(einfach nach End Sub einfügen):
Code:
function Rechnung() As Double 'Eine Funktion zum berechnen
Dim AdditionErgebnis As Double 'Varibale für diesumme aller Noten
AdditionErgebnis = Val(TextBox1.Text) + Val(TextBox2.Text) 'Und so weiter

'Das Val() sorgt dafür das kein Fehler entsteht,wenn der Benutzer statt Zahlen einen text eingibt,Val rechnet diesen dann einfach in 0 um.

return AdditionErgebnis / 18


End Function
Code zum aufrufen der funktion(bei deinem button einfügen):
Code:
Call Rechnung() 'Wobei "call" nicht umbedingt notwendig ist