Set objws = Worksheets(strAlignSheetName)
Set ob = objws.OLEObjects
 
    With objws.Shapes
    ' Total number of objects in the drawing layer.
        intShapeNum = .Count
        MsgBox intShapeNum
        If intShapeNum > 1 Then
            ' Number of ActiveX controls.
            intControlNum = 0
            ReDim arrControls(1 To intShapeNum)
            For i = 2 To intShapeNum
                If .Item(i).Type = msoOLEControlObject Then
                    If ob.Item(i).ProgId = "MOST_Object_1.MOST_UI_1" Then
                        MsgBox ob.Item(i).ProgId
                        '.Item(i).remSend                                       
                        '                         <- geht nicht
                        Me.MOST_UI_11.remSend                                   _
                                     <- geht
                        intControlNum = intControlNum + 1
 
                        MsgBox intControlNum & " " & .Item(i).Name & " " & _
                          ob.Item(i).ProgId
' Item(i).Name  ist MOST_UI_11
' ob.Item(i).ProgId ist MOST_Object_1.MOST_UI_1
                        ' Fill array with ActiveX controls.
                        arrControls(intControlNum) = .Item(i).Name
 
                    End If
 
 
                End If
            Next