Esta variable se pierde al finalizar el sub??

[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