Hi all,

Recently, I have already ask a lot and here's another question. I wanted to use loop to loop Write_Text("A1", 1, 1), A2 = Write_Text("B1", 1, 1), ......


Code:
Private Sub Write_Text(ByRef A, ByVal B, ByVal C)

List1.AddItem A & " | " & B & " | " & C

End Sub

Private Sub Run_Button_Click()
 
Dim i As Integer

for i = 1 To 2

' I wanted to go to Sub Data_Storage() and use loop to loop A1 and A2 in here

next i

End Sub

Private Sub Data_Storage()

A1 = Write_Text("A1", 102, 13)
A2 = Write_Text("B1", 15, 19)
A3 = Write_Text("B2", 19, 60)
               :
               :

End Sub
Need some advise.

Thanks