Option Explicit

'Sample 1
MsgBox New [$].add("[").add("      no spaces      ").trim.add("]")

'Sample 2
MsgBox New [$].add("      test [1] [2] [3]").replace("/\d/g","!").replace("/test/gi","->").trim

'Sample 3
MsgBox New [$].add("     IT WAS UPCASE TEXT WITH SPACES ") _
			  .trim() _
			  .toLowerCase() _
			  .add("    and lower case text") _
			  .toUpperCase()

Class [$]
	Dim [b$],[s$]

	Function toUpperCase()
		[b$] = UCase([b$])
		Set toUpperCase = Me
	End Function

	Function toLowerCase()
		[b$] = LCase([b$])
		Set toLowerCase = Me
	End Function

	Function trim()
		[b$] = re("/^\s+|\s+$/g").replace([b$],"")
		Set [trim] = Me
	End Function
	
	Public Default Function text()
		text = [s$] & [b$]
	End Function
	
	Function add(text)
		[s$] = [s$] & [b$]
		[b$] = text
		Set add = Me
	End Function
	
	Function replace(pat, rep)
		[b$] = re(pat).replace([b$],rep)
		Set replace = Me
	End Function
	
	Function match(pat)
		Set match = re(pat).execute([b$])
	End Function
	
	Private Function re(pat)
		Set re = New RegExp
		re.Pattern = "^\/(.+)\/([igm]*)$"
		Dim matches: Set matches = re.Execute(pat)
		If matches.Count < 1 Then re.Pattern = pat: Exit Function
		Set matches = matches(0).subMatches
		re.Pattern = matches(0)
		re.Global = InStr(1,matches(1),"g",1)
		re.IgnoreCase = InStr(1,matches(1),"i",1)
		re.MultiLine = InStr(1,matches(1),"m",1)
	End Function
	
End Class

Execute Var & "=""Var"""

' Запись в 139 символов:
C  = " класс"
C1 = "1" & C
C2 = "2" & C
C3 = "3" & C
C4 = "4" & C
C5 = "5" & C
C6 = "6" & C
C7 = "7" & C
C8 = "8" & C
C9 = "9" & C

' Запись в 59 символов (полный аналог предыдущего):
For i = 1 To 9: Execute "C" & i & " = i & "" класс""" :Next

' Теперь у нас на руках все переменные C1-9 c данными. Т.е. их можно
' сравнивать, обрабатывать, вставлять в текст, перетасовывать и т.п.
' Пример:
MsgBox "Маша пошла в " & C5 & "." & vbCr & _
"Миша из " & C9 & "а решил сложную задачу по алгебре."

' Есть некая дата в неподходящем формате (файла, например)
FDate = "5/5/5 5:5:5"

Dy = Day(FDate)  : Mh = Month(FDate)  : Yr = Year(FDate)
Hr = Hour(FDate) : Mn = Minute(FDate) : Sc = Second(FDate)

' Запишем в переменную дату 1-го преобразования
NDate = ReDate(FDate)

' Вызовем функцию 2-го преобразования
Call AddNull(Dy)(Mh)(Hr)(Mn)(Sc)

' Покажем разницу
MsgBox  "До преобразований:" & vbTab & FDate &_
vbCr & "1-е преобразование:" & vbTab & NDate &_
vbCr & "2-е преобразование:" & vbTab & ReDate(FDate)

Function AddNull(DateT)
  DateT = Right("0" & DateT, 2)
  Set AddNull = GetRef("AddNull")
End Function

Function ReDate(FDate)
  ReDate = Dy & "." & Mh & "." & Yr & " " & Hr & ":" & Mn & ":" & Sc
End Function

Call Test("Text1", vbInformation, "Title1")("Text2", vbExclamation, "Title2")

Function Test(Prompt, Buttons, Title)
	MsgBox Prompt, Buttons, Title
	Set Test = GetRef("Test")
End Function

strmytypename = "customobject" ' тип объекта
arrmykeys = array("property1", "property2") ' массив с названиями свойств объека
arrmyvalues = array("value1", createobject("scripting.dictionary")) ' массив со значениями свойств
' создание объекта
set objmy = getmyobj(strmytypename, arrmykeys, arrmyvalues)
' проверка
msgbox typename(objmy)
msgbox objmy.property1
msgbox typename(objmy.property2)

function getmyobj(strtypename, arrkeys, arrvalues)
    dim i
    execute "class " & strtypename & ": public " & join(arrkeys, ", ") & ": end class: set getmyobj = new " & strtypename
    for i = 0 to ubound(arrkeys)
        if isobject(arrvalues(i)) then
            execute "set getmyobj." & arrkeys(i) & " = arrvalues(i)"
        else
            execute "getmyobj." & arrkeys(i) & " = arrvalues(i)"
        end if
    next
end function