Coreldraw VBA Dimensioning a 2d array

Guys

I am trying to dim a 2d array that has 4 variables per entry and I Want to use a variable to give the size of the number of entries in the array
I use the following code

    Dim tmpcnyt As Double
    tmpcnt = origsr.Shapes.count
    Dim Larray(0 To tmpcnt, 1 To 4) As String

This throws the error "Constant Expression Required"
On Researching this it seems I need to redim the array
I Tried the following code

    Dim tmpcnyt As Double
    tmpcnt = origsr.Shapes.count
    Dim Larray()
    ReDim Larray(0 To tmpcnt, 1 To 4) As String

This Throws the error "Cant change data types of array elements"
i thought the issue was the first Dim being 1 dimensional so I tried the following

    Dim tmpcnyt As Double
    tmpcnt = origsr.Shapes.count
    Dim Larray(0 To 10, 1 To 4) As String
    ReDim Larray(0 To tmpcnt, 1 To 4) As String

This throws the error "Array already Dimensioned"
Any Ideas where i'm going wrong?

Any help appreciated
Mark