na hora de arredondar média

Olá

Estou com uma duvida num projeto, exemplo:

Eu quero que apareça a média real no TextBox assim:

7.2 = 7.0

A média real, depois um igual, e depois o valor arredondado.

que seria assim:

7.3 = 7.5

De 6.75 a 7.2 é uma nota, de 7.25 a 7.7 é outra nota.

Meu código que estou usando é:

ma.Text = Val(p1.Text) + Val(p2.Text) + Val(p3.Text) + Val(p4.Text)
If ma.Text >= media_escola.Text Then
sit.Text = "Aprovado"
Else
sit.Text = "Recuperação"
End If