Attribute VB_Name = "structures"

Public Type person
  name As String
  address As String
  phone As String
End Type
' create a person record

Public numberOfRecords As Integer
Public currentRecord As Integer

Public myAddressBook() As person