Dim employee
Set employee = New ThisLemontreeEmployee
MsgBox employee.ToString
Class ThisLemontreeEmployee
    Private name
    Private title
    Private personalAttributes
    Private age
    Private software
    Private technologies
    Private hobbies
    
    Private Sub Class_Initialize
      name = "Ludwig Östlund"
      title = "Test Automation Engineer"
      personalAttributes = "Happy, Analytical, Social"
      age = "30"
      software = "HP ALM, HP UFT"
      technologies = "ISTQB certified tester, HP UFT certified, Project management, Course director, Test automation developer"
      hobbies = "Electric guitars, Rubiks cube, Fine dining restaurants"
    End Sub
   Public Property Get ToString
        summary = Join(Array("Name: " & name, _
                            "Title: " & title, _ 
                            "Personal attributes: " & personalAttributes, _
                            "Age: " & age, _ 
                            "Software: " & software, _
                            "Techtechnologies: " & technologies, _ 
                            "Hobbies: " & hobbies), _ 
                        vbNewLine)
        ToString = summary
   End Property
End Class