Problemer med S-Grid2

Jeg har et problem med et S-Grid2.

Jeg har lavet det så man kalder dem som et array
nemlig Vbalsgrid1(variabel)

Jeg har så nogle forskellige knapper som jeg bruger til at
få forskellige information ind i disse S-grids.

men problemet er at jeg kun kan få data ind i Vbalsgrid1(0)

hvis jeg prøver at få data i de andre, så går mit program ned...

Den siger noget med at den ikke kunne skrive til memory ... eller ikke kunne udføre written...

nogen der har haft samme problemer eller ved hvordan man undgår dette ?

her er min kode :

Function get_ch_slct_bnk(nr)
'On Error Resume Next
'Funktion til at hente alle kanaler i valgte bank
Dim chnstrt(1 To 10) As String
Dim chnstop(1 To 10) As String
Dim bank(1 To 10) As String
Dim cnt As Integer
'bank værdier
bank(1) = "A"
bank(2) = "B"
bank(3) = "C"
bank(4) = "D"
bank(5) = "E"
bank(6) = "F"
bank(7) = "G"
bank(8) = "H"
bank(9) = "I"
bank(10) = "J"
'chanel start nr
chnstrt(1) = "001"
chnstrt(2) = "101"
chnstrt(3) = "201"
chnstrt(4) = "301"
chnstrt(5) = "401"
chnstrt(6) = "501"
chnstrt(7) = "601"
chnstrt(8) = "701"
chnstrt(9) = "801"
chnstrt(10) = "901"
'chanel stop nr
chnstop(1) = "100"
chnstop(2) = "200"
chnstop(3) = "300"
chnstop(4) = "400"
chnstop(5) = "500"
chnstop(6) = "600"
chnstop(7) = "700"
chnstop(8) = "800"
chnstop(9) = "900"
chnstop(10) = "1000"
cnt = 1
i = CInt(chnstrt(nr))
j = CInt(chnstop(nr))
Do
  DoEvents
  If Len(i) = 1 Then
    conn = "00" & i
    Else
    If Len(i) = 2 Then
    conn = "0" & i
    Else
    conn = i
    End If
    End If
    If i = 1000 Then
    conn = "000"
    End If
    Comm_open ("PM" & conn)
        txt = ""
        buffer$ = ""
        Label1.Caption = i
        a = nr - 1
        Do
            DoEvents
            buffer$ = buffer$ & MSComm1.Input
            Loop Until InStr(buffer$, Chr$(13))
        MSComm1.PortOpen = False
        var1 = buffer$
        chan_nr = Left(var1, 5)
    var1 = Replace(var1, chan_nr, "")
    Frek = Left(var1, 9)
    var1 = Replace(var1, Frek, "")
    Frek = Replace(Frek, "F", "")
    frek1 = Left(Frek, 4)
    frek2 = Right(Frek, 5)
    Frek = frek1 & "." & frek2
    trunk = Left(var1, 3)
    var1 = Replace(var1, trunk, "")
    dly = Left(var1, 3)
    var1 = Replace(var1, dly, "")
    lckout = Left(var1, 3)
    var1 = Replace(var1, lckout, "")
    ATT = Left(var1, 3)
    var1 = Replace(var1, ATT, "")
    autorec = Left(var1, 3)
    var1 = Replace(var1, autorec, "")
    CTCSS = var1
    CTCSS = Replace(CTCSS, "N", "")
    CTCSS = Replace(CTCSS, Chr$(13), "")
    If lckout = " LN" Then
      lckout = "ON"
      End If
    If lckout = " LF" Then
      lckout = "OFF"
    End If
    If dly = " DN" Then
        dly = "ON"
    End If
    If dly = " DF" Then
        dly = "OFF"
    End If
    If ATT = " AN" Then
        ATT = "ON"
    End If
    If ATT = " AF" Then
        ATT = "OFF"
    End If
   
With vbalGrid1(a)

        .AddRow i, , True, , -1
        .CellDetails i, 1, i, DT_LEFT, , , , , -1
        .CellDetails i, 2, Frek, DT_LEFT, , , , , -1
        .CellDetails i, 3, "TAG", DT_LEFT, , , , , -1
        .CellDetails i, 4, CTCSS, DT_LEFT, , , , , -1
        .CellDetails i, 5, dly, DT_LEFT, , , , , -1
        .CellDetails i, 6, lckout, DT_LEFT, , , , , -1
        .CellDetails i, 7, ATT, DT_LEFT, , , , , -1
        .CellDetails i, 8, "8", DT_LEFT, , , , , -1
        .CellDetails i, 9, "9", DT_LEFT, , , , , -1
End With
        i = i + 1
Loop Until i = j + 1