Array Length is set by Regex.Split

TestArray=Regex.Split(",","1,2,3,4,5,6,")

TestArray=Regex.Split(",","1,2,3,4,5,6,''")

TestArray(PadString(Regex.Split(...), 7))

Sub PadStrings(str() As String, targetLength as Int) As String()
 If str.Length = targetLength Then return str
 Dim res(targetLength) As String
 For i = 0 to targetLength - 1
  if i >= str.Length then res(i) = "" else res(i) = str(i)
 Next
 Return res
End Sub

Sub SafeSplit(Pattern As String, Text As String) As String()
   ' Same as Regex.Split but returns an array with 1 element per Pattern in Text + 1.
   Dim PatternCt As Int
   Dim Matcher1 As Matcher
   Dim InitArray() As String

   ' Do the initial Split, returning a possibly short array.
   InitArray=Regex.Split(Pattern,Text)

   ' Find the number of Patterns in Text.
   Matcher1 = Regex.Matcher(Pattern, Text)
   Do While Matcher1.Find
      PatternCt=PatternCt+1
   Loop
   
   Dim ResultArray(PatternCt+1) As String ' 1 before the 1st, 1 after the last.
   For i = 0 To PatternCt
      If i >= InitArray.Length Then 
         ResultArray(i) = "" 
      Else
         ResultArray(i) = InitArray(i)
      End If
   Next
   Return ResultArray
End Sub

Sub SafeReadArray(ArrayToRead() As String, Index As Int) As String
   ' Check if Index is within ArrayToRead.Length, and return "" if not.
   If Index<ArrayToRead.Length Then
     Return ArrayToRead(Index)
   Else
      Return ""
   End If
End Sub