Hi X Taol,

Try:
'===========
Sub xx()
Dim an_x() As Long
Dim k As Long, i As Long
Dim v As Variant

k = 0
For i = 1 To 3
If k = 1 Then
ReDim Preserve an_x(1 To i)
an_x(i) = i + 6
End If
Next

On Error Resume Next
v = UBound(an_x)
On Error GoTo 0

If IsEmpty(v) Then MsgBox "an_x is empty"

End Sub
'<<===========

---
Regards,
Norman



"x taol" wrote in message
...
Sub xx()
Dim an_x() As Long
k = 0
For i = 1 To 3
If k = 1 Then
ReDim Preserve an_x(1 To i)
an_x(i) = i + 6
End If
Next
'check whether an_x is empty or not empty.
'how can i know that the array is emptyed.

ubound or isarray or isempty or ismissing....
no ,no,no ???
End Sub


*** Sent via Developersdex http://www.developersdex.com ***