Lisbox items save to text file with "," seprarate - vb.net

Question

Hy!
How to save listbox items to textfile with "," seprate?
My code:
Using sfd As SaveFileDialog = New SaveFileDialog
With sfd
.FileName = String.Empty
.Filter = "Text|*.txt"
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
End With
If sfd.ShowDialog = DialogResult.OK Then
Dim logint() As String = Login.Text.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
Dim passt() As String = Pass.Text.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
Dim contents As String = String.Empty
For x As Integer = 0 To logint.Length - 1
contents &= String.Format("{1},{2}{0}", Environment.NewLine, logint(x), passt(x))
Next
If contents.Length > 0 Then
contents = contents.Remove(contents.Length - 1)
End If
My.Computer.FileSystem.WriteAllText(sfd.FileName, contents, False)
End If
End Using
It's working if I click a listbox item, but if I don't, then items save doesn't work.

Answer 1

Try this:
If sfd.ShowDialog = DialogResult.OK Then
Dim contents As String = String.Empty '***
Dim c As Integer = Login.Items.Count '***
Dim y As Integer '***
For y = 0 To c - 1 '***
Dim logint() As String = Login.Items.Item(y).Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) '***
Dim passt() As String = Pass.Items.Item(y).Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) '***
For x As Integer = 0 To logint.Length - 1
contents &= String.Format("{1},{2}{0}", Environment.NewLine, logint(x), passt(x))
Next
If contents.Length > 0 Then
contents = contents.Remove(contents.Length - 1)
End If
Next '***
My.Computer.FileSystem.WriteAllText(sfd.FileName, contents, False)
End If
Changes are marked with '***

Answer 2

You can use a bit of LINQ to do it in a single line:
IO.File.WriteAllLines("file path here",
Enumerable.Range(0, Login.Items.Count).
Select(Function(n) String.Format("{0},{1}",
Login.Items(n),
Pass.Items(n))))