谁帮我写段代码实现split函数的功能？

Question

vb新手，用evb开发，wince下不支持split函数，请帮忙，
提供一下思路和关键的函数也可以

Answer 1

Private Sub Command1_Click() 
     Dim s As String 
     s = String(FileLen("c:\a.txt"), " ") 
     Open "c:\a.txt" For Binary As 1 
     Get #1, , s 
     Close 1 
     v = Split(s, vbCrLf) 
     Dim i 
     For i = 0 To UBound(v) 
     List1.AddItem v(i) 
     Next 
    End Sub 
     
     Public Function Split(ByVal sIn As String, Optional sDelim As _ 
     String, Optional nLimit As Long = -1, Optional bCompare As _ 
     VbCompareMethod = vbBinaryCompare) As Variant 
     Dim sRead As String, sOut() As String, nC As Integer 
     If sDelim = "" Then 
     Split = sIn 
     End If 
     sRead = ReadUntil(sIn, sDelim, bCompare) 
     Do 
     ReDim Preserve sOut(nC) 
     sOut(nC) = sRead 
     nC = nC + 1 
     If nLimit <> -1 And nC >= nLimit Then Exit Do 
     sRead = ReadUntil(sIn, sDelim) 
     Loop While InStr(1, sIn, sDelim, bCompare) > 0 
     ReDim Preserve sOut(nC) 
     sOut(nC) = sIn 
     Split = sOut 
     End Function 
     
     
     Public Function ReadUntil(ByRef sIn As String, _ 
     sDelim As String, Optional bCompare As VbCompareMethod _ 
     = vbBinaryCompare) As String 
     Dim nPos As String 
     nPos = InStr(1, sIn, sDelim, bCompare) 
     If nPos > 0 Then 
     ReadUntil = Left(sIn, nPos - 1) 
     sIn = Mid(sIn, nPos + Len(sDelim)) 
     End If 
     End Function