Como fazer para não substituir a figura?

Olá pessoal.. preciso da ajuda de vcs.. tenho um código para salvar a figura gerada num picture.. mas preciso variar o nome da figura para quando gerar a proxima não venha substituir.. e sim criar uma outra figura.. entenderam? aí vai o trecho de código.. mto obrigado!

Private Sub CMD_salvar_Click()sarg = Text1.Textutili.FindFirst "numcad = '" & sarg & "'"If utili.NoMatch Then utili.AddNew Call SavePicture(Picture1.Image, "c:\cod\figura0.jpg") utili!imgeti = ("c:\cod\figura0.jpg") utili!numcad = Text1.Text utili.Update MsgBox "cadastrado!"ElseMsgBox "Etiqueta já utilizada!"'eti.AddNew'SavePicture Picture1.Image("c:\cod")'eti!imagem = App.Path & n'eti.Update'MsgBox "cadastrado!"End If