求助

'　cZF = "111222333"
Text1.Text = Mid(cZF, 1, 3)

Dim buffer(100) As Byte,str As String,i&,pStr&,tmps As String,tn As Long
str="111;222;333"
pStr=StrPtr(str)
tn=1
main:
MoveMemory buffer(0),ByVal pStr,100
for i=0 To 99
If buffer(i)=Asc(";") Or buffer(i)=0 Then
Select Case tn
Case 1
Text1.Text=tmps
Case 2
Text2.Text=tmps
Case 3
Text3.Text=tmps
Goto thenext
End Select
tn=tn+1
tmps=""
Else
tmps=tmps+Chr(buffer(i))
End If
If buffer(i)=0 Then Goto thenext
Next i
pStr=pStr+100
Goto main
thenext:
'窝最喜欢坑伸手党啦2333333

c=split（字符串,";"）
text1.text=c(0)

其实nb的方法是正则+CallByName

6楼9楼都是正解，罗老师的方法太啰嗦且不通用。