字符串转换成数组ls

Function ExplodeToArr(Byval sInput As String, Byval sDelimiter As String) As Variant
 Dim sOutput As String
 Dim aOutput() As String
 Dim nPos As Integer
 Dim nNextPos As Integer
 sOutput = sInput
 Redim aOutput(0)
 nPos = Instr(sOutput, sDelimiter)
 While nPos <> 0
  aOutput(Ubound(aOutput)) = Left(sOutput, nPos - 1)
  sOutput = Right(sOutput, Len(sOutput) - Len(sDelimiter) - nPos + 1)
  nPos = Instr(sOutput, sDelimiter)
  Redim Preserve aOutput(Ubound(aOutput) + 1)
 Wend
 aOutput(Ubound(aOutput)) = sOutput
 ExplodetoArr = aOutput
End Function