Find size of 1D array - arrays

Question

A sub calls a function that in turn doest stuff and returns an array. The probem is I need to know the size of that array in my sub. is there a quick line to find the size of that array? I know i can do it with a littel for loop bt this seems unecessary.
This is how it goes:
Sub innout(lastupdate As Long, lrcr As Long)
Dim numclosed As Long, numnew As Long
Dim lblvar As Variant
Dim tblcr As Range
Dim finishdates As Range
Dim msg As Long
Dim resp As String, ops() As Long, cps() As Long
Dim i As Long
listallsupv
'do stuff...
end sub
Function listallsupv() As String()
Dim las() As String
Dim lrs As Long
Dim i As Long, j As Long, r As Long
Dim supervsheet As Worksheet
Set supervsheet = Sheets("Superviseurs")
lrs = supervsheet.Range("A1").Offset(supervsheet.Rows.count - 1, 0).End(xlUp).Row
ReDim las(1 To lrs) As String
i = 1
For r = 2 To lrs
For j = 1 To i
If supervsheet.Range("B" & r).Value = las(j) Then
GoTo nextj
End If
Next
las(i) = supervsheet.Range("B" & r).Value
i = i + 1
nextj:
Next
ReDim Preserve las(1 To i)
End Function
Thanks!

Answer 1

ah I found it. I just made the array in my original sub and called another sub to populate it by reference adnn also return the length. Ya thanks Tim I hadn't even noticed that at first.
Sub innout(lastupdate As Long, lrcr As Long)
Dim i As Long
Dim las() As String
Call populate_las(las(), i)
'bla bla
End Sub
Sub populate_las(ByRef las() As String, ByRef i As Long)
Dim lrs As Long
Dim j As Long, r As Long
Dim supervsheet As Worksheet
Set supervsheet = Sheets("Superviseurs")
lrs = supervsheet.Range("A1").Offset(supervsheet.Rows.count - 1, 0).End(xlUp).Row
ReDim las(1 To lrs) As String
i = 1
For r = 2 To lrs
For j = 1 To i
If supervsheet.Range("B" & r).Value = las(j) Then
GoTo nextj
End If
Next
las(i) = supervsheet.Range("B" & r).Value
i = i + 1
nextj:
Next
ReDim Preserve las(1 To (i - 1))
End Sub
Thanks again!