1.将字符串转为数组

方法：先创建一个动态数组，数组大小等于字符串的长度，然后依次取出字符串中的每个字符存入该动态数组中，最后将数组返回，代码如下：

'将字符串string1转换为数组

Public Function StringToArray(ByVal string1)

    Dim i,Array1()

    Redim Array1(Len(string1))

    For I=1 to Len(String1)

        Array1(I-1)=Mid(string1,I,1)

    Next

    StringToArray=Array1

End Function

2.将数组转换为字符串

方法：先定义一个字符串变量；然后根据数组的维度依次将数组中的字符赋给字符串，最后将字符串返回，代码如下：

'将数组Array1转换为字符串

Public Function ArrayToString(ByVal Array1)

    Dim i,string1

    For i=0 to UBound(Array1)

        string1=string1 & Array1(I)

    Next

    ArrayToString=string1

End Function