Dim w As New StreamWriter("C:\IMtemp\dlls.txt")
For Each IDLL In dlls
If counter3 < ListBox1.Items.Count Then
w.WriteLine(IDLL)
counter3 = counter3 + 1
End If
Next
w.Close()
