I felt like posting an example in OOo Basic (StarBasic) so I decided to create my own data type.
Type PersonType
FirstName As String
LastName As String
End Type
Sub ExampleCreateNewType
Dim Person(100) As PersonType
Person(0).FirstName = "Andrew"
Person(0).LastName = "Pitonyak"
PrintPerson(Person(0))
End Sub
Sub PrintPerson(x)
Print "Person = " & x.FirstName & " " & x.LastName
End Sub