How to returning comments to original settings

Hello all, now i have given up the quest of finding the information on the net.
I found some code on how to change the appearance of the comments in a sheet using VBA, but I can’t find how to return it to default using VBA.
First, here is an example on a comment change that I have found.

Sub Comments_Adv()
Dim MyComments As Comment
Dim LArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.AutoShapeType = msoShapeRectangle
.Shape.TextFrame.Characters.Font.Name = "Tahoma"
.Shape.TextFrame.Characters.Font.Size = 8
.Shape.TextFrame.Characters.Font.ColorIndex = 2
.Shape.Line.ForeColor.RGB = RGB(0, 0, 0)
.Shape.Line.BackColor.RGB = RGB(255, 255, 255)
.Shape.Fill.Visible = msoTrue
.Shape.Fill.ForeColor.RGB = RGB(58, 82, 184)
.Shape.Fill.OneColorGradient msoGradientDiagonalUp, 1, 0.23
End With
Next 'comment
End Sub


By removing the comment and writing a new one we can get the status back to default state but I would like to know how to do it using VBA.
I have tried to figure out the data for the example above but for some reason I can’t find the information.

I hope you can help me how to set it do default or help me to determine how to find the default values.