Calling function inside function. (aka nested function)

I would like to create printing function which prints entire array or part of it in immediate window. First I have function which determines count of array dimensions. Second I have function which determines longest string in column. Third I want to test these functions, but the test gives me error. The problem is that function 1 is not evaluated in function 2. Is it possible to somehow nest functions? It would make my code much more readable.

1. Determines number of dimmensions

Public Function NDim(Arr As Variant) As Integer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'returns the number of dimensions of an array.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Ndx As Integer
Dim Res As Integer
    
    On Error Resume Next
    Do
        Ndx = Ndx + 1
        Res = UBound(Arr, Ndx)
    Loop Until Err.Number <> 0
        NDim = Ndx
End Function

2. find the longest string array column

Public Function findLong(x() As Variant) As Integer

If IsArray(x) = True Then
   nd = NDim(x) ''' determines dimension count
    If nd > 1 Then
        ReDim ald(nd) As Integer ''' creates one dimensional array to which string length 'ld' of the longest string from array ar2 column is stored. (max length for each column)
        For D = 1 To nd
            ld = 0
            For I = LBound(x, D) To UBound(x, D)
                If Len(x(I, D)) > ld Then ld = Len(x(I, D))
            Next I
            ald(D) = ld
        Next D
    End If
End If
findLong = ald
End Function

3. Calling function

Sub testr()
Dim ar2(10, 10) As String
ar2(4, 1) = 1
ar2(4, 2) = 2
ar2(5, 1) = 15
ar2(5, 2) = 25

Dim a() As Integer
a = findLong(ar2)
debug.Print a(1) ''' results in error
End Sub

Public Function NDim(Arr As Variant) As Integer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'returns the number of dimensions of an array.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Ndx As Integer
Dim Res As Integer
    
    On Error Resume Next
    Do
        Ndx = Ndx + 1
        Res = UBound(Arr, Ndx)
    Loop Until Err.Number <> 0
        NDim = N
End Function

What is N? This looks like it will always return the same value.


In findLong, What is ar2? similarly ald?

Public Function findLong(x() As Variant) As Integer

If IsArray(x) = True Then
   nd = NDim(ar2) ''' determines dimension count
    If nd > 1 Then
        ReDim ald(nd) As Integer 
        For D = 1 To nd
            ld = 0
            For I = LBound(x, D) To UBound(x, D)
                If Len(x(I, D)) > ld Then ld = Len(x(I, D))
            Next I
            ald(D) = ld
        Next D
    End If
End If
findLong = ald
End Function

You aren't dimensioning your variables and are using them outside of the procedure that they are scoped.
Option Explicit will require all variables to be dimensioned and in scope.

It looks like you might be using variable ar2 within findLong, when the array passed is x. (ar2 is an array scoped only to the Sub testr)

I still don't see where N gets its value in NDim, or what ald is set in findLong.

https://msdn.microsoft.com/en-us/library/y9341s4f.aspx

Mikericson, I have corrected the typos in my code (Ndim=Ndx; nd = NDim(x)). Still It doesn't do what I would like to. Nesting vba function will greatly improve readability of my code. Otherwise I have to use very long function with many parts.

-ald() creates one dimensional array to which string length 'ld' of the longest string from array 'ar2' column is stored. (maximum length for each column)