Need advise in for loop

[kent5244]

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), ......

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

[FireXtol]

'create a User Defined Type to hold the parameters
Private Type tIOCommand
  sCmd as String
  lValA as Long
  lValB as Long
End Type
 
Dim wtCmds() as tIOCommand 'declare a variable as the type
 
ReDim wtCmds(num_of_commands -1) 'dimension array, in case you have multiple lists
 
'init the values
wtCmds(0).sCmd = "A1"
wtCmds(0).lValA = 102
wtCmds(0).lValB = 13
'etc... do this for all of them... incrementing the index for each
 
Static lResumeOn as Long
Dim i as Long
'Private? bolCancel as Boolean
'check to make sure it's valid...
If lResumeOn > UBound(wtCmds) then lResumeOn = 0
 
For i = lResumeOn to UBound(wtCmds)
  Write_Text(wtCmds(i).sCmd, wtCmds(i).lValA, wtCmds(i).lValB
  DoEvents
  If bolCancel = True then
    lResumeOn = i + 1
    Exit Sub
  End If
Next i
 
'reset resume on
lResumeOn = 0

Experiment with that.