¿este código es que te da una opción a una nota final de una clase?
Dim r1, r2, r3, r4, r5, r6, r7, r8 As Integer
r1 = TextBox1.Text
r2 = TextBox2.Text
r3 = TextBox3.Text
r4 = TextBox4.Text
r5 = TextBox5.Text
r6 = TextBox6.Text
r7 = TextBox7.Text
r8 = r1 + r2 + r3 + r4 + r5 + r6 + r7
TextBox8.Text = r8
Selecione uma das opções: