Visual Basic

<br />
' CCustomerInfo -> stores one customer record<br />
Public CompanyID As Long<br />
Public CompanyName As String<br />
Public CompanyAddress As String<br />
Public CompanyFaxNumber As String<br />
Public GeneralSupportExpiryDate As String<br />
Public HardwareSupportExpiryDate As String<br />
Public Contacts() as String <---- Error here<br />

<br />
' CCustomerInfos -> collection of CCustomerInfo objects<br />
<br />
' this is how I add objects to the collection to the class<br />
' not trying to add contacts() yet as I can't declare it correctly<br />
Public Function Add(CompanyID As Long, CompanyName As String, CompanyAddress As String, CompanyFaxNumber As String, GeneralSupportExpiryDate As String, HardwareSupportExpiryDate As String, Optional sKey As String) As CCustomerInfo<br />
<br />
	Dim objNewMember As CCustomerInfo<br />
	<br />
	Set objNewMember = New CCustomerInfo<br />
<br />
	With objNewMember<br />
		.CompanyID = CompanyID<br />
		.CompanyName = CompanyName<br />
		.CompanyAddress = CompanyAddress<br />
		.CompanyFaxNumber = CompanyFaxNumber<br />
		.GeneralSupportExpiryDate = GeneralSupportExpiryDate<br />
		.HardwareSupportExpiryDate = HardwareSupportExpiryDate<br />
	End With<br />
	<br />
	If Len(sKey) = 0 Then<br />
		mCol.Add objNewMember<br />
	Else<br />
		mCol.Add objNewMember, sKey<br />
	End If<br />
<br />
	Set Add = objNewMember<br />
	Set objNewMember = Nothing<br />
<br />
End Function<br />

<br />
"Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules"<br />