Function fnc(ByVal a As Byte, ByVal b As Byte) As Integer()
Dim p_fnc(0 To 1) As Integer
p_fnc(0) = a + b
p_fnc(1) = a - b
fnc = p_fnc
End Function
Sub test()
Dim ary() As Integer
Dim i As Integer
ary = fnc(1, 1)
For i = 0 To 1
MsgBox "配列 ary(" & CStr(i) & ")の中身は。。" & CStr(ary(i)) & "です。"
Next
End Sub