SUBROUTINE TESTARRAY (ELEMENTS, OUTARRAY) ! bind(c, name='TESTARRAY')
!DEC$ ATTRIBUTES DLLEXPORT, STDCALL, REFERENCE, ALIAS:"TESTARRAY" :: TESTARRAY

IMPLICIT NONE

INTEGER*4, INTENT(IN) :: ELEMENTS
CHARACTER*15, INTENT(OUT) :: OUTARRAY(ELEMENTS)
INTEGER*4:: I
!DEC$ ATTRIBUTES REFERENCE :: ELEMENTS, OUTARRAY

DO I = 1,ELEMENTS
    WRITE(OUTARRAY(I),'(I3.3)') I
ENDDO

RETURN

END SUBROUTINE TESTARRAY

Option Explicit
Option Base 1

Dim arraytest() As String * 15

Declare Sub TESTARRAY Lib "PATHMYDLL.dll" (ELEMENTS As Long, ByVal OUTARRAY As String)

Public Function array_dll(iel As Long) As String

   ReDim arraytest(1 To iel)

    Call TESTARRAY(iel, arraytest(1))

    array_dll = Trim(arraytest(iel))

End Function