Dim BadString As String
        Dim lp2 As Integer
        Dim lp As Integer
 
        StrPfad = Me.cbo_server.Text & "\" & Me.cbo_specification.Text & "\" & _
          Me.cbo_mandat.Text
        SelStr2 = "SELECT * FROM tbl_BadRegStr"
        SelStr = "SELECT * FROM tbl_RefLocM WHERE fehler_r LIKE '%" & BadString _
          & "%'"
 
        dst2 = Nothing
        Me.lst_ScanResult.Items.Clear()
 
        lp = 0
        lst_ScanResult.Items.Clear()
        Me.pgb_fortschritt.Value = 0
 
        'MsgBox(dst2.Rows.Count.ToString)
 
 
 
        Try
            dst2 = New DataTable()
            oledbADP = New OleDb.OleDbDataAdapter(SelStr2, conn)
            oledbADP.Fill(dst2)
        Catch
            MsgBox("Es sind keine Prüfzeichenfolgen vorhanden")
            Exit Function
        End Try
 
 
        Me.pgb_fortschritt.Maximum = dst2.Rows.Count.ToString - 1
        Me.pgb_fortschritt.Minimum = 0
 
 
        Do While lp2 <> dst2.Rows.Count.ToString - 1
 
            BadString = dst2.Rows(lp)(1)
 
 
            SelStr = "SELECT * FROM tbl_RefLocM WHERE fehler_r LIKE '%" & _
              BadString & "%'"
 
            Try
                DST = New DataTable()
                oledbADP = New OleDb.OleDbDataAdapter(SelStr, conn)
                oledbADP.Fill(DST)
            Catch
                MsgBox("Keine Daten vorhanden")
            End Try
 
            If DST.Rows.Count.ToString = -1 Then
            Else
                Do While lp <> DST.Rows.Count.ToString
                    Me.lst_ScanResult.Items.Add(DST.Rows(lp)(0) & Chr(9) & ( _
                      DST.Rows(lp)(1)))
{{{{{{{{{{HIER MÖCHTE ICH DEN STRING DER IN DIE LISTBOX GESCHRIEBEN WIRD _
ZUSÄTZLICH IN EIN TEXTFILE SCHREIBEN}}}}}}}}}}
                    lp = lp + 1
                Loop
 
            End If
            Dim test As Double
            test = (100 / ((dst2.Rows.Count.ToString) - 1))
            Me.pgb_fortschritt.Increment(100 / ((dst2.Rows.Count.ToString) - 1))
 
            lp = 0
            lp2 = lp2 + 1
        Loop
 
        DST = Nothing
        dst2 = Nothing
        oledbADP = Nothing
        conn.Close()

Dim swr As New StreamWriter("Dateiname", true, System.Text.Default) 
...
swr.WriteLine("Deinen Text als String")
...
swr.Close()

Star

Murphy:
 1.) Nichts ist so leicht wie es aussieht!
 2.) Alles dauert l?nger als du denkst!
 3.) Alles, was schief gehen kann, geht schief!