Truncate by string digits, how do I do that?

zxmsgdhr

There are the following fields:
04002005000807102980

The results after interception are as follows:
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"

3521565

Talk about what rules, how to divide without rules

zxmsgdhr

a (1) is the first character
a (2) 2nd to 5th characters
a (3) 6th to 9th characters
a (4) 10th character
a (5) 11th to 14th characters
a (6) 15th character
a (7) 16th character
a (8) 17th to 20th characters

zxmsgdhr

Please master help

美味佳

Dim sa As String = "04002005000807102980"
        Dim oArray As New List (Of String) 'Define the array
        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))

美味佳

There is no regularity, only this!
If it is regular, it will be more logical to do it!

clcvictor

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)