Beh credo di si xD sto usando Visual Studio 2008 per programmare in VB.

Comunque ho risolto con questo:

For i = 0 To lst.Items.Count - 1
a = lst.Items(i).SubItems(0).text
b = lst.Items(i).SubItems(1).text
c = lst.Items(i).SubItems(2).text
d = lst.Items(i).SubItems(3).text
Write(1, a, b, c, d)

Next