VB.NET-How to Save A List of Items in A ListBox To A TextFil

Public Class Form1
    Dim W As IO.StreamWriter

Private Sub addItem_Click(ByVal sender As System.Object, ByVal e As Args)
    lb1.Items.Add(tb1.Text)
    lb1.SelectedIndex = lb1.SelectedIndex + 1
End Sub
Private Sub sItems_Click(ByVal sender As System.Object, ByVal e As Args)
    Dim i As Integer
    W = New IO.StreamWriter("C:\" & sName.Text & ".txt")
    For i = 0 To lb1.Items.Count - 1

    Next
End Sub
End Class
//https://www.dailymotion.com/video/x30q25g listbox, textinputbox, additem, saveitems, textinputbox{filename}