Private Function DocName() As String
 
        Dim Top_Process As Process() 'Array für die gefunden Prozesse mit 
        ' top612 im Namen
        Top_Process = Process.GetProcessesByName("top612") 'Suche nach offenen 
        ' TopSolid Anwendungen
 
        Try
            If UBound(Top_Process) > -1 Then
 
                Dim TopApp As TopSolid.Application
                TopApp = New TopSolid.Application
 
                If TopApp.Documents.Count > 0 Then
                    Return TopApp.CurrentDocument.Name
                Else
                    Return "keine Datei geöffnet"
                End If
            Else
                Return "TopSolid nicht gestartet"
            End If
        Catch ex As Exception
            Return "Error"
        End Try
    End Function 'Ermittelt den Dokumentnamen der gerade geöffnet ist

Grüße Andi