Une listbox par colone dans excel

bonjour, bonsoir,

je suis en train de faire programme en Visual Basic Express 2008 et pour mon application j'ai besoin d'enregistrer des information de plusieur listbox ver un fichier excel. Ce que je voudrai c'est d'enregister une listbox par colone si cela est possible.
Pour le moment tous ce que j'arrive à faire c'est de mettre toutes mes listbox dans la même colone. Voici mon code :


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.Filter = "fichier XLS(*.xls)|.xls"
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim lb1 As New System.IO.StreamWriter(SaveFileDialog1.FileName)
For Each Item As String In ListBox1.Items
lb1.WriteLine(Item)
Next
For Each Item As String In ListBox2.Items
lb1.WriteLine(Item)
Next
lb1.Close()
End If

End Sub

merci d'avance pour votre réponse.