Class TestClass
   Private someFieldSuka

   Public Property Let SomeField(arg1, arg2)
      someFieldSuka = arg1 & arg2
   End Property

   Public Property Get SomeField(arg1)
      SomeField = someFieldSuka
   End Property

End Class

Dim testInstance
Set testInstance = New TestClass

testInstance.SomeField("lol") = "kek"

r = MsgBox(testInstance.SomeField("lol"))