怎么将字符串赋值给字符数组?

如何将字符串赋值给字符数组???
dim   nCntArray   as   Integer   '此变量是一计数器

dim   sPrtTime   as   String       '此变量是一形式为10.51的字符串

Private   sArray()   As   String   '数组

While   sNextFile   <>   " "
       

        nCntArray   =   nCntArray   +   1

        sNextFile   =   Dir$
       
Wend

For   i   =   1   To   nCntArray
        sArray(i)   =sPrtTime       '此处出错,应该如何赋值,将sPrtTime存入数组???
Next   i


------解决方案--------------------
redim sArray(0)

For i = 1 To nCntArray
redim preserve sprttime(ubound(sprttime)+1)
sArray(ubound(sprttime)) =sPrtTime
Next i
------解决方案--------------------
Redim sArray(1 to nCntArray) '需要定义数组的大小, 否则不能操作它

For i = 1 To nCntArray
sArray(i) =sPrtTime
Next i
------解决方案--------------------
动态数组,需要使用REDIM定义大小
------解决方案--------------------
dim nCntArray as Integer '此变量是一计数器

dim sPrtTime as String '此变量是一形式为10.51的字符串

dim sArray() As String '数组

While sNextFile <> " "


nCntArray = nCntArray + 1

sNextFile = Dir$

Wend

redim sArray(1 to nCntArray) As String

For i = 1 To nCntArray
sArray(i) =sPrtTime '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i