Проверка массива на Nothing - VB

Формулировка задачи:

Подскажите, пожалуйста, как в vb 6 проверить массив на равенство nothing? Например в vb .net это можно сделать так:

                    Листинг программы
                
Dim ar() As Integer
If ar Is Nothing Then
    MessageBox.Show("Массив пустой!")
Else
    MessageBox.Show("Массив не пустой!")
End If

Просьба решения с использованием On Error GoTo не предлагать.

Решение задачи: «Проверка массива на Nothing»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Declare Function GetMem4 Lib "msvbvm60" (Src() As Any, Dst As Any) As Long
 
Private Sub Form_Load()
    Dim ar() As Long, init As Long
    
    ReDim ar(0)
    
    GetMem4 ar, init
 
    If init Then
        ' Г€Г*ГЁГ¶ГЁГ*Г«ГЁГ§ГЁГ°Г®ГўГ*Г*
        MsgBox "Г€Г*ГЁГ¶ГЁГ*Г«ГЁГ§ГЁГ°Г®ГўГ*Г*"
    Else
        ' ГЌГҐГЁГ*ГЁГ¶ГЁГ*Г«ГЁГ§ГЁГ°Г®ГўГ*Г*
        MsgBox "ГЌГҐГЁГ*ГЁГ¶ГЁГ*Г«ГЁГ§ГЁГ°Г®ГўГ*Г*"
    End If
    
    ' ГѓГ«ГѕГЄГЁ Г± ГЇГ«Г*ГўГ*ГѕГ№ГҐГ© ГІГ®Г·ГЄГ®Г© (Г¬Г®Г¦Г*Г® ГЇГҐГ°ГҐГµГўГ*ГІГЁГІГј)
    If (Not ar) = -1 Then
        ' ГЌГҐГЁГ*ГЁГ¶ГЁГ*Г«ГЁГ§ГЁГ°Г®ГўГ*Г*
        MsgBox "ГЌГҐГЁГ*ГЁГ¶ГЁГ*Г«ГЁГ§ГЁГ°Г®ГўГ*Г*"
    Else
        ' Г€Г*ГЁГ¶ГЁГ*Г«ГЁГ§ГЁГ°Г®ГўГ*Г*
        MsgBox "Г€Г*ГЁГ¶ГЁГ*Г«ГЁГ§ГЁГ°Г®ГўГ*Г*"
    End If
End Sub