Redim Preserve array: subscript out of range

[supern0va]

Hi all,

For checking the answer to a multiple choice quiz, I wrote a subroutine. See below.
(Undefined variables and FaultArray() are defined as Public at the top of the module.)
What's supposed to happen is that whenever a wrong answer is given, FaultArray (a 2D array, 3 elements wide) gets a new line.
On this line will be written
1) the question that was asked
2) the answer that the user gave
3) the correct anser
So that I can present the answers to the wrong questions after the quiz.

Problem is: the second time the sub processes a wrong answer, I get a 'subscript out of range' error.
Am I overlooking something? I'm stomped

Sub CheckAnswerA()

If Worksheets("quiz").Range("K3").Value = Answer Then
    Score = Score + 1
    Range("K7").Value = Score
    Call Again
    Else:
    Fault = Fault + 1
    ReDim Preserve FaultArray(1 To Fault, 1 To 3)
        FaultArray(Fault, 1) = Question
        FaultArray(Fault, 2) = Worksheets("Quiz").Range("K3").Value
        FaultArray(Fault, 3) = Answer
    Call Again
End If

End Sub

quiz v10b.xlsm

[shg]

You can only change the last dimension of a dynamic array when you use Preserve. See Help for ReDim.

[patel45]

If you include the Preserve keyword, Visual Basic copies the elements from the existing array to the new array. When you use Preserve, you can resize only the last dimension of the array, and for every other dimension you must specify the same size it already has in the existing array.

[mike7952]

something like this

Sub CheckAnswerA()
Dim FaultArray As Variant

ReDim FaultArray(1 To 3, 1 To 1)
If Worksheets("quiz").Range("K3").Value = Answer Then
    Score = Score + 1
    Range("K7").Value = Score
    Call Again
    Else:
        FaultArray(1, UBound(FaultArray, 2)) = Question
        FaultArray(2, UBound(FaultArray, 2)) = Worksheets("Quiz").Range("K3").Value
        FaultArray(3, UBound(FaultArray, 2)) = Answer
        ReDim Preserve FaultArray(1 To 3, 1 To UBound(FaultArray, 2) + 1)
    Call Again
End If

End Sub

[supern0va]

Ah! Excellent, that clears it up. Thanks Mike for your suggestion.