Private Function SplitString(ByVal text As String, ByVal length As Integer)
        Dim temp() As String = text.Split(" ")
        Dim ret As String = ""
        Dim currentlength As Integer = 0
        For i As Integer = 0 To temp.Length - 1
            If currentlength + (temp(i) & " ").Length <= length Then
                currentlength += (temp(i) & " ").Length
                ret &= temp(i) & " "
            Else
                ret &= temp(i) & currentlength.ToString & vbCrLf
                currentlength = 0
            End If
        Next
        Return ret
    End Function