Can't show cell comment text in Msgbox

I can't show cell comment in Msgbox (look Line 133 of the code):

MsgBox rng.Offset(0, i).Comment.Text

On module1 this works fine (you can run this macro on desired sheet where first one doesn't work).

What I'm trying to do is comment that has contents in form of:

Date
Text: Number

I'm trying to keep date and increase number.
Until some point when Date need to be TODAY() and Number reset to 0 (this part works in Line 114).

I just can't figure out why this Msgbox don't show anything...

You can test it by running macro and for another running you should delete sheet 12.09.27.

Example:

12.09.20 H1 comment should have same date and Training: 2 on sheet 12.09.27
12.09.20 I1 comment should have today date and Training: 0 on sheet 12.09.27 ' This works

Does anybody see what I'm missing?