Dim FirstName Dim LastName Dim MiddleInitial Dim Address Dim City Dim State Dim PhoneNumber Dim FaxNumber Dim EMail Dim BirthDate FirstName = "John" MiddleInitial = "Q" LastName = "Public" Address = "100 Main Street" City = "New York" State = "NY" PhoneNumber = "1-212-555-1234" FaxNumber = "1-212-555-1234" EMail = "john@public.com" BirthDate = "1/1/1950" %>