Updating Range with Visual FoxPro Array

[Norie]

I just tried this code in VBA and it worked.

Option Base 1

Sub Test
    Dim DataArray(100, 3)
    For r = 1 To 100
        DataArray(r, 1) = "ORD " & r
        DataArray(r, 2) = Rnd() * 1000
        DataArray(r, 3) = DataArray(r, 2) * 0.7
    Next
    Set oSheet = Worksheets(1)
    oSheet.Range("A2").Resize(100, 3).Value = DataArray
End Sub