Sub TextToGroup(ByVal vshpMyShape As Shape, ByVal vvarArray As Variant, _
  ByVal vstrText As String, ByVal vstrObjectName As String)
'hebt die Gruppierung vshpMyShape auf,
'schreibt vstrText In die vstrObjectName und
'stellt die Gruppe vshpMyShape wieder her
'alle Eigenschaften von vshpMyShape werden ebenfalls wiederhergestellt
Dim srgGroup As Excel.ShapeRange
Dim shpGroup As Shape
Dim varArray() As Variant
Dim blnSwitch As Boolean
'speichert die Eigenschaften der Gruppe
     Call RetainGroupProps(blnSwitch, vshpMyShape)
'Gruppierung aufheben
     On Error Resume Next
     vshpMyShape.Ungroup
     If Err.Number <> 0 Then
'vshpMyShape ist keine Gruppe!
         MsgBox vshpMyShape.Name & " Is Not a group!", vbCritical
         On Error GoTo 0
         Exit Sub
     End If
     On Error GoTo 0
     varArray = vvarArray
'nicht alle Objekte sind vorhanden
     If Not bShapeArrayExists(varArray, vshpMyShape.Parent) Then
         ActiveSheet.Shapes(varArray(0)).Select
         Set shpGroup = Selection.ShapeRange.Regroup
         Call RetainGroupProps(blnSwitch, shpGroup)
         MsgBox shpGroup.Name & " enthält nicht alle erwarteten Objekte." & vbCr _
          & "Die Gruppe wurde ohne Änderungen wiederhergestellt!", vbCritical
         Set shpGroup = Nothing
         Exit Sub
     End If
'Text In vstrObjectName schreiben
     With vshpMyShape.Parent
         .Shapes(vstrObjectName).TextFrame.Characters.Text = vstrText
'zum Gruppieren wir ein ShapeRange!
         Set srgGroup = .Shapes.Range(varArray)
     End With
'durch das Gruppieren der ShapeRange bekommen wir wieder ein Shape
     Set shpGroup = srgGroup.Group
'Wiederherstellen der Eigenschaften der Gruppe
     Call RetainGroupProps(blnSwitch, shpGroup)
     Set srgGroup = Nothing
     Set shpGroup = Nothing
MsgBox "Get Is Not a keyword here And ' doesn't start a comment!" 'comment
more commenting 'follows "here And ' " here _
jumping comment...
End Sub