VB读取TEXT问题

使用Split函数
Private Sub Command1_Click()
On Error GoTo eErr
Dim x, a, b, c, d
x = Split(Text1.Text, ";")
a = x(0)
b = x(1)
c = x(2)
d = x(3)
' ...........
Cls
Print a
Print b
Pr