s=Code>  Occupation as string</p>

<p class=Code>  Salary as double</p>

<p class=Code>End Type</p>

<p class=Code>&nbsp;</p>

<p class=Code>Dim person as PersonType</p>

<p class=Code>Person.name=&quot;John Doe&quot;</p>

<p class=Code>Person.Occupation=&quot;Freelance artist&quot;</p>

<p class=Code>Person.Salary=50000.00</p>

<p class=Code>msgbox &quot;The person's name is &quot; + person.name</p>

<p class=Code>msgbox &quot;The person's occupation is &quot; + person.occupation</p>

