strExample = strExample & "Lorem Ipsum"

Public strExample as String

Sub Main()
   {do something}
   AddTo("One")
   {do something else}
   AddTo("Two")
End Sub

Sub AddTo(str as String)
   strExample = strExample & str
End Sub