这样就可以了: Private Sub Command1_Click() Dim x x = fun("abcde") MsgBox Join(x, vbCrLf) End Sub Function fun(ByVal sstring As String) Dim v() As String, i As Long ReDim v(1 To Len(sstring)) For i = 1 To Len(sstring) v(i) = Mid(sstring, i, 1) Next fun = v End Function
Private Sub Command1_Click()
Dim x
x = fun("abcde")
MsgBox Join(x, vbCrLf)
End Sub
Function fun(ByVal sstring As String)
Dim v() As String, i As Long
ReDim v(1 To Len(sstring))
For i = 1 To Len(sstring)
v(i) = Mid(sstring, i, 1)
Next
fun = v
End Function