Function IstAnwendungOK(ByVal dateiname As String) As Boolean
        Try
            Dim DateiOhneExe As String
            Dim Anwendung As New System.Diagnostics.Process
 
            DateiOhneExe = Mid(dateiname, 1, Len(dateiname) - 4)
            Anwendung.GetProcessesByName(DateiOhneExe)
 
            If Anwendung.Id <> 0 Then
                Return True
            Else
                Return False
            End If
            Anwendung = Nothing
        Catch ex As Exception
            MessageBox.Show("Modul2: Fehler in IstAnwendungOK: " & ex.Message)
        End Try
    End Function