Public Class DocNameSingleTon
    ' Variable zur Speicherung der einzigen Instanz
    Private Shared instance As DocNameSingleTon = Nothing
 
    ' Hilfsvariable für eine sichere Threadsynchronisierung.
    Private Shared ReadOnly mylock As New Object()
 
    ' Konstruktor ist privat, damit die Klasse nur aus sich selbst heraus 
    ' instanziiert werden kann.
    Private Sub New()
        '
    End Sub
 
    ' Diese Shared-Methode liefert die einzige Instanz der Klasse zurück.
    Public Shared Function GetInstance() As DocNameSingleTon
        SyncLock (mylock)
            If instance Is Nothing Then
                instance = New DocNameSingleTon
            End If
        End SyncLock
 
        Return instance
 
    End Function
 
    Public 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
End Class  ' Threadsichere Klasse für Funktion DocName

Dim MyDocNameSingleTon As DocNameSingleTon = DocNameSingleTon.GetInstance()

Dim Nachricht As String = MyDocNameSingleTon.DocName()

Grüße Andi