Using Fortran dll in VBA of Excel 2010

Hello every one,

I am trying to use Fortran dll in VBA of Excel 2010, but I have a problem now.
I want to get virtual array as returned value, but failed. Here is my code,

* fortran 11

subroutine virtualArrayTest(iv_array,ii)
!DEC$ ATTRIBUTES STDCALL,REFERENCE,DLLEXPORT,ALIAS:"virtualArrayTest"::virtualArrayTest
implicit none
  integer,intent(out):: ii
  integer,allocatable,intent(out) :: iv_array(:)
  
  ii = 3
  allocate(iv_array(3))
  iv_array = 9

  return
end subroutine

* visual basic macro

Option Explicit
Option Base 1

Private Declare Sub virtualArrayTest Lib "Dll1.dll" (ByRef iv_array() As Long, ByRef ii As Long)

Sub vattt()
Dim iv_a() As Long
Dim ii As Long

Call virtualArrayTest(iv_a, ii)

Cells(7, 1) = iv_a(1)
Cells(8, 1) = iv_a(2)
Cells(9, 1) = iv_a(3)

End Sub

Excel quit when running. What is the matter?
Thanks very much for any suggestion.