2d array problemer

Jeg indlæser en ; delt txt fil i et 2d Array.
Der er 22 felter pr linje i textfilen men jeg kan ikke rigtig se hvad jeg gør forkert jeg får en runtime error 9 (subscript out of range) når jeg prøver at debug.print indholdet af tredie linje i tekst filen, felt nr 7
på denne måde( anden sidste linje i scriptet):
Debug.Print Post(7, 3)

jeg har erklæret Public Post() As String i et bas modul

Private Sub Command1_Click()
Dim Filnavn As String, sti As String, antalfelter As Integer
Dim txt As String, h As String, holder As String
Dim ix As Integer, nummer As Integer, felt As Integer

List1.Clear
Filnavn = (File1.List(File1.ListIndex))
sti = Dir1.Path 'App.Path
' start
antalfelter = 22

Open (sti & "\" & Filnavn) For Input As #1

Do While EOF(1) = False
    Line Input #1, txt
    felt = 0
    ReDim Preserve Post(antalfelter - 1, nummer)
    For ix = 1 To Len(txt) + 1 Step 1
    h = Mid(txt, ix, 1)
    If h = ";" Then 'Or h = "" Then
        Post(felt, nummer) = holder
        holder = ""
       
        felt = felt + 1
    Else
        holder = holder & h
    End If
       
  Next ix
 
  'Debug.Print txt
  nummer = nummer + 1
Loop
Close #1

'udskriv  linje 3 fra tekst filen og 7 felt (værdien der står imellem det 6 og 7 ;)
Debug.Print Post(7, 3)
End Sub


Kan I se hvad jeg gør forkert?
Det er meningen at jeg skal indlæse hver linje fra txt filen og tjekke at felterne 1,2,3,4,5,6,7,8,9,13,14,16,18,19 i linjen skal startet men et " og slutter med et ", hvis ikke de gør det skal jeg så lægge dem til feltet (Tidligere spm her http://exp.dk/spm/362718)