Dit heb ik als oplossing en het werkt zoals ik het wou.
Dim gem As String
gem = Round(WorksheetFunction.Sum(ActiveCell.Offset(1, 0).Resize(20)) _
/ WorksheetFunction.Count(ActiveCell.Offset(1, 0).Resize(20)), 1)
MsgBox "Klasgemiddelde voor deze test is " & gem, vbInformation + vbOKOnly, "LOP"
Exit Sub