Multidimensional array

[Mushroom Realm]

i want to redclare a multidimensional array, but it tells me that the subscript is out of range. im using redim preserve, heres the code:

Public Map() As Byte
Public Sub LoadMap(MapPath As String)
Dim Line, Token As String
Dim HCounter, VCounter As Integer
Open App.Path & "\maps\" & MapPath & ".map" For Input As #1
Do Until EOF(1)
VCounter = VCounter + 1
Line Input #1, Line
Do While HCounter <= Len(Line)
HCounter = HCounter + 1
ReDim Preserve Map(HCounter, VCounter)
Token = Mid(Line, HCounter, 1)
If Token > 0 Then
Map(HCounter, VCounter) = 0
Else
Map(HCounter, VCounter) = 1
End If
Select Case Token
Case "0"
frmScreen.Picture = LoadPicture(App.Path & "\graphics\grass.gif")
Case "1"
frmScreen.Picture = LoadPicture(App.Path & "\graphics\water.gif")
End Select
BitBlt frmScreen.picGame.hDC, (HCounter - 1) * 40, (VCounter - 1) * 40, 40, 40, frmScreen.hDC, 0, 0, SRCCOPY
Loop
Loop
End Sub

The code is in a module. Does anyone know whats wrong?