Function IsArrayNull(ByRef aArray() As String) As Boolean
' permet de savoir si un tableau existe (dimension 0)
IsArrayNull = ((Not (Not aArray)) = 0)
End Function
' EXEMPLE D'UTILISATION
Private Sub Command1_Click()
Dim MonTableau() As String
MsgBox IsArrayNull(MonTableau())
ReDim MonTableau(10)
MsgBox IsArrayNull(MonTableau())
End Sub