Lotus string illegal array bound

If use number can work

Dim tablelabels(9) As String

But I need use variable [count] ,[count] is number,because there is no fixed value

 Dim tablelabels(count) As String   <----
        n=0
        While Not (doc Is Nothing)
            tablelabels(n) = doc.GetItemValue ("Reply")(0)
            n=n+1
            Set doc = view.GetNextDocument (doc)
        Wend

Thanks a lot for help

Use this:

Dim tablelabels() As String
ReDim tablelabels(count)