Vb6 如何将字符串分成三部分？

我想把一根弦分成三部分。我正在使用以下代码

dim length1 as string 
dim length2 as string
dim lenght3 as string

length1=Mid$(Text1.text,1,30)
length2=Mid$(Text1.text,31,70)
length3=Mid$(Text1.text,71,100)

msgbox length1
msgbox lenght2
msgbox length3

msgbox 2显示11,30的长度。为什么?

我所尝试的：

---

我的代码有什么问题？我知道$Mid从字符串的左边开始

我假设您希望每个字符串的长度为10个字符？您的问题似乎是不断将字符串的长度更改10

编辑：因为OP在他的评论中提供了更多的信息，所以我更新了代码以适应请求

Sub Test()

    Dim length1 As String
    Dim length2 As String
    Dim length3 As String
    Dim divTot As Integer, leftOver As Integer

    divTot = Len(text1.Text) / 3
    leftOver = Len(text1.Text) - (divTot * 2)

    length1 = Mid$(text1.Text, 1, divTot)
    length2 = Mid$(text1.Text, divTot + 1, divTot)
    length3 = Mid$(Text1.Text, (divTot * 2) + 1, leftOver)

    MsgBox length1
    MsgBox length2
    MsgBox length3

End Sub

---

除了这个主题，我已经完成了所有的项目。请帮助我。我想把一根弦分成三部分。但当我在第三部分中使用Mid$（text1.text，20,30）时，msgbox会显示两者的总数。假设text1包含100个字符。我希望msgbox 1显示1到30个字符，msgbox 2显示下一个31到70个字符，msgbox 3显示下一个71到100个字符。感谢您告诉我，如果您不评论我下面的问题，我不会收到您需要进行任何更改的通知。非常好。谢谢兄弟