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

おすすめの記事