Private Sub lstBox_speichern(ByVal lstBoxAusgabe As ListBox, ByVal _
  SpeicherortDatei As String)
        Dim Stream As StreamWriter
        Dim DriveInfo As New IO.DriveInfo("d:\")
        Dim AvailableFreeSpace As Double
        Dim DriveFormat As String = DriveInfo.DriveFormat
        Dim VolumeLabel As String = DriveInfo.VolumeLabel
        Dim TotalSize As Double
 
        AvailableFreeSpace = (DriveInfo.AvailableFreeSpace) / (1024 ^ 3)
        TotalSize = (DriveInfo.TotalSize) / (1024 ^ 3)
 
        Try
            SpeicherortDatei = "h:\!test\report.txt"
            Stream = New StreamWriter(SpeicherortDatei, FileMode.Append)    _
              'FileMode.Append schreibt am Ende der Datei weiter
            For i As Short = 0 To lstBoxAusgabe.Items.Count - 1
                Stream.WriteLine(lstBoxAusgabe.Items(i))
            Next
 
            With lstBoxAusgabe.Items
                .Add( _
                  "===========================================================" & _
                  "================================")
                .Add("Datum und Uhrzeit: " & getTimeStamp())
                .Add(DriveInfo)
                .Add("Bezeichnung Laufwerk: " & VolumeLabel)
                .Add("Verfügbarer Speicherplatz in GB: " & _
                  AvailableFreeSpace.ToString("0.00"))
                .Add("Verfügbare Gesamtgeöße in GB: " & TotalSize.ToString( _
                "0.00"))
                .Add( _
                "=============================================================" & _
                "==============================")
                .Add("")
            End With
 
            Stream.Close()
        Catch ex As Exception
            MsgBox(ex.InnerException)
        End Try
    End Sub