dynamic array before redim

[Serge]

You can do somwthing like this:

Private Sub Command1_Click()
    Dim arr() As String
    Dim intNumber As Integer
    
    On Error Resume Next
   
    intNumber = UBound(arr)
    
    If Err.Number = 9 Then
        MsgBox "Array is not dimensioned."
    End If
End Sub