You may just want to point an array to a type.

Type udt_something
strTypeSelected as string
strHTML as string
end type

dim aData() as udt_something


aData(i).strTypeSelected = "Something"
aData(i).strHTML = "HTML String"