可以!
Public Function MySplit(a As String, b As String) As String()
    MySplit = Split(a, b)
End Function

解决方案 »

  1.   


    VB5不行,VB6可以,VB6的Splite本身就返回数组。
    Public Function Str2Ary(s1 as string,s2 as string) As String()
    Dim a(0 to 1) as string
    a(0)=s1
    a(1)=s2
    Str2Ary = a
    End Function
      

  2.   

    回复人: Chice_wxg(我怕谁?我是谁!我是流氓我最贼。) (  ) 信誉:97  2002-2-23 10:29:40  得分:0  
      VB5可以返回变体数组。
    Public Function Str2Ary(s1 as string,s2 as string) As variant
    Dim a(0 to 1) as string
    a(0)=s1
    a(1)=s2
    Str2Ary = a
    End Function
     
      

  3.   

    多谢Bardo(巴顿) 从来不这样用,总觉得不好,呵呵
    (我恨 variant)