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
