Dim TxtWriter As IO.StreamWriter
        TxtWriter = Nothing
        Try
            TxtWriter = New IO.StreamWriter("c:\test.txt", False)
 
           TxtWriter.WriteLine(ListBox1.GetItemText(ListBox1.SelectedItem))
 
            TxtWriter.Close()
        Catch ex As IO.FileLoadException
            MsgBox("Datei konnte nicht geöffnet werden")
        Catch ex As Exception
            MsgBox("Irgendwas anderes mal wieder")
            If Not TxtWriter Is Nothing Then
                TxtWriter.Close()
            End If
        End Try

        Dim TxtWriter As IO.StreamWriter
        TxtWriter = Nothing
        Try
            TxtWriter = New IO.StreamWriter("c:\test.txt", False)
            For Each obj As Object In ListBox1.SelectedItems
                TxtWriter.WriteLine(ListBox1.GetItemText(obj))
            Next
 
            TxtWriter.Close()
        Catch ex As IO.FileLoadException
            MsgBox("Datei konnte nicht geöffnet werden")
        Catch ex As Exception
            MsgBox("Irgendwas anderes mal wieder")
            If Not TxtWriter Is Nothing Then
                TxtWriter.Close()
            End If
        End Try