Wissen welches Textfeld in welcher Zelle ist ? [VBA 2010]

[RWarnecke]

Über das folgende Makro kann ich ermitteln, welches Textfeld in welcher Zelle ist : (Quelle aus dem Crosspost)

Code:

Sub Makro1()
    Dim shpe As Shape
    For Each shpe In ActiveSheet.Shapes
        Debug.Print shpe.Name
        If shpe.Name Like "Text Box*" Then
            If Not Intersect(Range("F10"), Range(shpe.TopLeftCell, shpe.BottomRightCell)) Is Nothing Then
                'hier der Code, der ausgeführt werden soll,
                'wenn sich eine Textbox
                'im Bereich der Zelle C3 befindet.
                'die Textbox kann über die Variabele "shpe" angesprochen werden
                MsgBox "im Bereich der Zelle F10 liegt das Textfeld " & shpe.Name
            End If
        End If
    Next
End Sub

Jetzt ist nur noch die Frage, wie bringe ich dieses Makro rüber nach Delphi, dass ich die Werte in Delphi ermitteln und anzeigen kann ? Es sollte möglichst ohne Änderungen in den Exceldateien möglich sein.