又一个字符分割的问题
从文本中读数据，格式如下
101 财务部 002 40000
103 生产部 012 500
109 IT部 011 6000
999 其它 900

要从中分解出第一列和第4列数据。请问有什么好办法吗？

[解决办法]
字符宽度好解决
Private Sub Command1_Click()
Dim s As String, t As String
s = "123我们abc "
t = StrConv(s, vbFromUnicode)
s = MidB(t, 2, 5)
s = StrConv(s, vbUnicode)
Print s
End Sub