CreateObject Function
UNOрд╡рд╕реНрддреБ рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН
рдпреЛ рддрд░реАрдХрд╛рд▓реЗ рдкреНрд░рдХрд╛рд░рдХреЛ рдкрд░рд╛рдорд┐рд░рддрд┐рдХреЛ рд░реВрдкрдорд╛ рдкрд╛рд╕ рдЧрд░реЗрдХрд╛ рджреГрд╖реНрдЯрд╛рдиреНрддрд╣рд░реВ рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрджрдЫ ред
oObj = CreateObject( type )
Type address
Name1 As String
City As String
End Type
Sub main
myaddress = CreateObject("address")
MsgBox IsObject(myaddress)
End Sub