VBA hjælp

Hej allesammen!

Jeg sidder lige nu med det problem at jeg skal lave en sub for den gennemsnitlige karakter, som der så skal vises i cellen B1 og i en message box, der er i vbCritical. Problemet ligger i at cellen B1 viser resultatet korrekt samtidig med message boxen, som også viser resultatet korrekt, men hver gang når jeg klikker OK på message boxen, så den forsvinder, så ændrer værdien i cellen B1 sig til 1 og det giver ingen mening for mig?

Min sub ser således ud:

Sub KarakterGennemsnit()

Range("B1").Value = Application.WorksheetFunction.Average(Range("B4:B10000"))

Range("B1").Value = MsgBox("Den gennemsnitlige forventet karakter er:" & Range("B1"), vbCritical, )

End Sub

Håber virkelig der er nogen som kan hjælpe!