Private Sub cmdAlltoRight_Click()
 
' Übernimmt alle Items aus dem linken Listfeld ins rechte Listfeld
    Dim nItemCount As Integer
    Dim nff As Integer
    Dim sParserTemp As String
    nff = FreeFile
 
    Open "C:\ParserTemp.txt" For Append As #nff
 
    nItemCount = List1.ListCount
    Do While nItemCount <> 0
 
        List2.AddItem List1.Text
        sParserTemp = List1.Text
        List1.RemoveItem List1.ListIndex
        Write #nff, , sParserTemp & (Chr(13) + Chr(10))
        nItemCount = nItemCount - 1
        sParserTemp = ""
    Loop
    List2.Refresh
    cmdParseSelected.Enabled = True
 
End Sub

...and you will know my name is the Lord, when I lay my vengeance upon thee! -Samuel L. Jackson Ch. 25, 17, Pulp Fiction-