Dim p(100) As String
For l = 0 To p.Length -1
p(l) = l + 10 'Fill p(position) with the array position + 10
Next
NewVar = p(20) + 0 'Makes NewVar a value not a string
NewVar = p(20) & " Text" 'Makes Newvar a String
For l = 0 To p.Length -1
Log(p(l)) 'Logs the value of each element to the log file
Next
Dim points(100) As Point
'Fill points-array, e. g.:
points(0) = p1
points(1) = p2
'...
'Run through all Points:
For i = 0 To points.Length - 1
DoSomething(points(i))
Next'i