Public Function Splitt(ByVal str As String, ByVal splittlength As Integer) As _
  String()
 
   If splittlength < 1 Then Exit Function
   Dim l As Integer:   l = Len(str)
   If l < 1 Then Exit Function
 
   Dim m As Integer: m = l Mod splittlength
   Dim d As Integer: d = Fix(l / splittlength)
   If m > 0 Then d = d + 1
 
   Dim strarr() As String: ReDim strarr(d - 1)
 
   i = -splittlength + 1: k = -1
   While i <= l - splittlength
       i = i + splittlength
       k = k + 1
       strarr(k) = Mid$(str, i, splittlength)
   Wend
 
   If i + splittlength - 1 < l Then
       strarr(k + 1) = Mid$(str, i + splittlength)
   End If
 
   Splitt = strarr
End Function