Esta variable se pierde al finalizar el sub??

[davape9]

Private Sub gd()
If idg = "" Then
idg = 1
Else
idg = idg + 1
End If
msgbox idg
End Sub


Lo hago para que cada vez que se ejecute gd() aparezca primero el 1, después el 2, y así..

Pero la variable idg siempre que ejecuto el sub está indefinida!! o sea que al finalizar el sub se pierde.

¿Qué puedo hacer para que no se pierda la variable?

Gracias de antemano

[Sergestux]

Tu variable debes declararla de tipo static para que conserve su valor es decir:

Código vb:

Private Sub gd()
 static idg
 If idg = "" Then
    idg = 1
 Else
    idg = idg + 1
 End If
 msgbox idg
End Sub