This example changes the text below the icon for the first shape in the selection.
If Selection.ShapeRange.Count >= 1 Then
Set myOLEF = Selection.ShapeRange(1).OLEFormat
With myOLEF
.DisplayAsIcon = True
.IconLabel = "My Icon"
End With
End If