又一个字符分割的有关问题

又一个字符分割的问题
从文本中读数据，格式如下
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