Dim i As Long

Open "Names.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Close #1

Imports System
Imports System.IO

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim f As StreamWriter, i As Long, obj As Object
    For i = 1 To 10
      ListBox1.Items.Add("Item " & i.ToString)
    Next i
    f = New StreamWriter("C:\Test.txt")
    For i = 0 To ListBox1.Items.Count - 1
      f.WriteLine(ListBox1.Items.Item(i).ToString)
    Next i
    f.Close()
  End Sub
End Class