按字符串位数截分段截取,请教该怎么做呢

按字符串位数截分段截取,请问该如何做呢?
有以下一段字段:
04002005000807102980

截取后结果如下:
string   a(1)= "0 "
string   a(2)= "4002 "
string   a(3)= "0050 "
string   a(4)= "0 "
string   a(5)= "0807 "
string   a(6)= "1 "
string   a(7)= "0 "
string   a(8)= "2980 "

------解决方案--------------------
Dim sa As String = "04002005000807102980 "
Dim oArray As New List(Of String) ' 定义数组
oArray.Add(sa.Substring(0, 1))
oArray.Add(sa.Substring(1, 4))
oArray.Add(sa.Substring(5, 4))
oArray.Add(sa.Substring(9, 1))
oArray.Add(sa.Substring(10, 4))
oArray.Add(sa.Substring(14, 1))
oArray.Add(sa.Substring(15, 1))
oArray.Add(sa.Substring(16, 4))
------解决方案--------------------
Dim MyString As String = "04002005000807102980 "
Dim A1 As String = Mid(MyString, 1, 1)
Dim A2 As String = Mid(MyString, 2, 4)
Dim A3 As String = Mid(MyString, 6, 4)
Dim A4 As String = Mid(MyString, 10, 1)
Dim A5 As String = Mid(MyString, 11, 4)
Dim A6 As String = Mid(MyString, 15, 1)
Dim A7 As String = Mid(MyString, 16, 1)
Dim A8 As String = Mid(MyString, 17, 4)