Private Function GetParts(ByVal text As String) As String()
        Dim lines() As String = text.Split(Chr(10))
        Dim parts As New List(Of String)
        For Each line As String In lines
            If line.Length >= 40 Then : parts.Add(line.Substring(7, 40 - 7))
            Else : parts.Add(String.Empty)
            End If
        Next
        Return parts.ToArray
    End Function