Sub Main()
        If App.PrevInstance Then
           End
        Else
           Load frmPT32Main
        End If
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Not bg_CancelSystem Then
       'Wenn das X des Fensters zum Schließen verwendet wurde
       Cancel = True
    Else
 
      '.........
 
       If oExcel Is Nothing Then
          ' Fehler: Excel nicht vorhanden!
          '...
       Else
          Set oExcel = Nothing
       End If
 
       Set lngDLL = Nothing
       Set frmPT32Main = Nothing
 
      '=>  "End"  führte hier zum Fehler und wurde kurzer hand entfernt
    End If
 
End Sub

Tschaui
Woellmi