Constructor POO

Colegas estou aplicando no meu projeto, o conceito de Orientação a objeto, estou tentando simular uma espécie de constructor,
porém, quero que ao chamar o constructor, ele verificar se já existe uma instancia do objeto em memória.

'Variavel de objeto
Dim Modell As Clientes

Public Sub Constructor()

If Not Modell Then
Set Modell = New Clientes
End If

End Sub


está me surgindo o erro 91. A variavel do objeto ou bloco with não foi definida


Na linguagem delphi fazemos

if not Assigned(Modell) then
begin
Modell = TClientes.create
end;


e no Destructor fazemos o inverso

if Assigned(Modell) then
begin
Modell.Free
end;

Colegas conseguir fazer, está o código abaixo

Dim Modell As Clientes

Public Sub Constructor()

If Modell Is Nothing Then
Set Modell = New Clientes
End If

End Sub

Public Sub Destructor()

If Not Modell Is Nothing Then
Set Modell = Nothing
End If


End Sub


assim sempre vou ter a certeza que meu objeto está sendo instanciado uma única vez. acredito que agora tenho um Singleton

Boa tarde
Faltou marcar o "Resolvido" no formulário do fórum