Why am I getting a subscript error (9) from this:

Type HandleInformation
HWnd As Long
ParentHWnd As Long
Process As Long
Thread As Long
Class As String
Exe As String
End Type

Public HList() As HandleInformation

--------------

For a = 1 to 5
ReDim Preserve HList(UBound(HList) + 1) As HandleInformation
Next