Function IstAnwendungOK(ByVal dateiname As String) As Boolean
        Try
            Dim Anwendung As New System.Diagnostics.Process
 
            If Process.GetProcessesByName(IO.Path.GetFileNameWithoutExtension( _
              dateiname)).Length > 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