This is one way to check... the API way...

Code:
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" _
(ByRef saArray() As Any) As Long

Sub Sample()
    Dim foo() As String
    If SafeArrayGetDim(foo) = 0 Then MsgBox "Array is uninitialized."
End Sub