# data[].attributes.body
Sub Result()
rslt = Corect
msg = rslt
q4 = MsgBox("Точките ви са:" + msg)

End Sub