Arrays

[RhinoBull]

... OR ...

Private Sub Command1_Click()
Dim strValues$
Dim arNumbers() As String
 
    strValues = "404933,165425,907356,992437,665768,541879,509990,203261,255631,108982"
    arNumbers = Split(strValues, ",")
    Debug.Print arNumbers(1)
 
End Sub

[Narfy]

Thanks for all the help, works perfect.

[bobbynad]

... OR ...

Private Sub Command1_Click()
Dim strValues$
Dim arNumbers() As String
 
    strValues = "404933,165425,907356,992437,665768,541879,509990,203261,255631,108982"
    arNumbers = Split(strValues, ",")
    Debug.Print arNumbers(1)
 
End Sub

The above example works perfect for single dimensional array , How is it possible to do the same example for array (2,12) etc.

[RhinoBull]

Sorry for late reply.
See my sample in this thread .