Dim myExample As String
Dim yrExample As Object
Sub ExampleSub()
  myExample = "This is an Example"
End Sub
Function ExampleFun(ThisExample As String) As String
  Example = Trim(ThisExample)
End Function
Property Get ExampleGet() As String
  Example = "This is an Example"
End Property
Property Let ExampleLet(ThisExample As String)
  myExample = ThisExample
End Property
Property Set ExampleSet(ThisExample As Object)
  Set yrExample = ThisExample
End Property