Возврат 2 и более аргументов из функции.

[Drilla]

Люди, знает ли кто как вернуть из функции 2 и более аргумента, не используя глобальные переменные

например:

Function Func(N)
dim x,y as integer
x=12+N
y+14-N
end function

как вернуть х и у?

хотелось бы что нибудь по типу:
a=Func(2).x
b=Func(3).y

Создать функцию типа as array не предлагать.

[EducatedFool]

Type MyType
    x As Long
    y As Long
End Type

Function Func(ByVal N) As MyType
    Func.x = 12 + N
    Func.y = 14 - N
End Function

Sub test()
    a = Func(2).x
    b = Func(3).y
    Debug.Print a, b    ' возвращает  14, 11
End Sub

[Drilla]

Сообщение от EducatedFool

Type MyType
    x As Long
    y As Long
End Type

Function Func(ByVal N) As MyType
    Func.x = 12 + N
    Func.y = 14 - N
End Function

Sub test()
    a = Func(2).x
    b = Func(3).y
    Debug.Print a, b    ' возвращает  14, 11
End Sub

большое
спасибо,
годится