I'm getting errors in this code! Why? Visual Basic 2010

Code:
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        SaveFileDialog1.InitialDirectory = "C:\"
        SaveFileDialog1.FileName = "Save As..."
        SaveFileDialog1.Filter = ("Text Files | *.txt")
        SaveFileDialog1.ShowDialog()

        Dim w As New IO.StreamWriter(SaveFileDialog1.FileName)
        Dim 1 As Integer
        For i = 0 To ListBox1.Items.Count = 1
            w.WriteLine(ListBox1.Items.Item(i))

        Next
        w.Close()





    End Sub
End Class