Option Explicit
Public Type Person
FirstName As String
LastName As String
BirthDate As String
End Type
'### Removed to move onto a more advanced lesson
'Public Sub test()
' Dim p1 As Person
' p1.FirstName = "John"
' p1.LastName = "Smith"
' p1.BirthDate = #1/1/1970#
' Dim p2 As Person
' p2.FirstName = "Jane"
' p2.LastName = "Doe"
' p2.BirthDate = #1/1/1970#
' Debug.Print VarPtr(p1), VarPtr(p2)
'End Sub
Public Function Create(FirstName As String, LastName As String, BirthDate As String) As Person