array problemer i VBA - ved ikke hvad fejlen er

Hej,

jeg har problemer med en kode, som jeg ikke kan oplyse for meget af, så her er den del jeg kan afsløre:
'-------

    strMFP = ""
    intJ = 0
   
    For intI = 1 To 2234
        strMFP = strMFP & ThisWorkbook.Sheets(2).Cells.Range("D" & intI) & " "
    Next intI
   
    arrMFP = Split(strMFP, " ")
   
    For intI = LBound(arrMFP) To UBound(arrMFP)
        If Not (arrMFP(intI) = "") And Not (arrMFP(intI) = " ") Then
            intJ = intJ + 1
            arrRLMFP(intJ) = arrMFP(intI)
        End If
    Next intI
   
    For intI = LBound(arrRLMFP) To UBound(arrRLMFP)
        ThisWorkbook.Sheets(3).Cells.Range("F" & intI) = arrRLMFP(intI)
    Next intI
    '-------THE MESS------' en fejl nedenfor her
    intJ = 1
    For intI = LBound(arrRLMFP) To UBound(arrRLMFP)
        If (arrRLMFP(intI) = "MBCCHNO") Then
            If (IsNumeric(arrRLMFP(intI + 1))) Then
                arrNumbers(intJ) = arrRLMFP(intI + 1)
                ThisWorkbook.Sheets(3).Cells.Range("G" & intI) = arrNumbers(intJ)
            ElseIf Not (IsNumeric(arrRLMFP(intI + 1))) Then
                'arrNumbers(intJ) = "0" '<----- Ca. her
                ThisWorkbook.Sheets(3).Cells.Range("G" & intI) = arrNumbers(intJ)
            End If
            intJ = intJ + 1
        ElseIf (IsNumeric(arrRLMFP(intI))) Then
            arrNumbers(intJ) = arrNumbers(intJ) & " " & arrRLMFP(intI)
        End If
        ThisWorkbook.Sheets(3).Cells.Range("G" & intI) = arrNumbers(intJ)
    Next intI

'-------
jeg prøver at lede efter alle "MBCCHNO" i en liste af celler, og tage de tal der kommer efter og smide dem i et index af et array..

det virker sådan set fint.. mit problem er at når der ikke står et tal efter MBCCHNO, skal der stå 0 i.. det vil den ikke.. jeg har prøvet med:
arrNumbers(intJ) = 0
arrNumbers(intJ) = "0"
arrNumbers(intJ) = "boo"

men uanset hvad jeg gør, vil den ikke skrive det.. men hvis jeg indsætter en MsgBox istedet for (for at teste om det er i if'en jeg får fejl) virker det fint..

hvad kan jeg gøre!? jeg har siddet fast i snart en uge på det her, og vil derfor give 200 points til den der kan hjælpe mig med det her..

På forhånd tak.. :-)

// jih