Weird type mismatch in VB

Declarations:

Public ErrorText as Variant
Public ErrorCount as Integer

Init:

Private Function objectControl_Activate()
ErrorCount = 0
End Function

Usage:

Private Sub handleError()
ErrorText(ErrorCount) = Err.Description
ErrorCount = ErrorCount + 1
End Sub

I get a type mismatch on the first line of the handleError sub, but I can't figure out why.

Try changing your declaration of ErrorText to ErrorText().