Somebody please tell me how to combine these 2 sets of strings together!!!

Code:
Bsp0 = Val(List2.List(0))
Bsp0 = Bsp0 + 1
List2.List(0) = Str$(Bsp0)

-----------------------------------------

Dim j%
For j = 1 to List1.ListCount - 1
    a.WriteLine List1.List(j)
Next
I need it so a.WriteLines are generated as many times as the List2.ListCount indicates. I most also keep this pinned on somewhere after the filename. I'm not really sure how this would all go together, that's why I'm here!!!!

Code:
(Left$(Bsp0, Len(Bsp0) - 4))
ANYTHING WOULD BE GOOD!!!!