I defined one as:

Private Type Test
ID As String
Name As String
Price As Double
End Type

and then defined an array:

Dim Tests(3000) As Test

The error was being caused by having the array being
declared Global. Once I made it Local to a subroutine, it
worked correctly.