the problem is with the following lines in your code:
geting = adata(i)
num = i
For num = i To UBound(geting)
newArray = geting(num) 'this part I don't get any data coming from array
Next
what variable type is geting ? is geting an array ?
as adata(i) is a single string (i think), i also think geting is a single string
using UBound() on a single string should give an compile error though ("expected array"), but i have no idea to what your compiler settings are and wether you run the project by pressing ctrl-F5 or just F5
somehow UBound(getting) does probably return 0, which is smaller than the value of i, and therefore your loop wont be executed
advice:
- please declare all your variables properly
- each variable declaration should have a type. "dim intA, intB as integer" will make an integer of intB, but intA will be of type variant
- place breakpoints in your code before you run it, so you know if that part of the code is reached upon execution
- when you arrive at a breakpoint "watch" the contents of the variables and check if they are what you expect them to be
- use ctrl-F5 to run the project from within the IDE, do not just use F5
[EDIT]
to copy an array to another array you can loop through the array and copy each element to the new array (make sure you redim the new array to the right size) .. or you can simple copy it:
Option Explicit
Private Sub Form_Click()
Dim intIndex As Integer
Dim intA(10) As Integer
Dim intB() As Integer
For intIndex = 0 To UBound(intA)
intA(intIndex) = (intIndex + 1) ^ 2
Next intIndex
intB = intA
For intIndex = 0 To UBound(intB)
Print CStr(intB(intIndex))
Next intIndex
End Sub