Numero progressivo su userform

Ciao a tutti, ho bisogno di aiuto.

Ho un foglio "database", nel quale, tramite userform, inserisco dei valori.

Questi valori li inserisco solo su una riga ed uso colonne fino a ("AS").

il codice che uso è il seguente:

Dim iRow As Integer
iRow = 2 'inizio dalla riga 2
While Cells(iRow, 2) <> ""
iRow = iRow + 1
Wend

'page1
Cells(iRow, 2) = Me.TextBox1.Text ' cognome/ obbligatorio
Cells(iRow, 3) = Me.TextBox2.Text ' nome / obbligatorio
Cells(iRow, 4) = Me.TextBox3.Text ' impresa / obbligatorio
Cells(iRow, 5) = Me.TextBox4.Text ' codice fiscale / obbligatorio
Cells(iRow, 6) = Me.TextBox5.Text ' email / obbligatorio
Cells(iRow, 7) = Me.TextBox6.Text ' telefono

ecc. ecc. fino a Cells(iRow, 45) = Me.Label66.Caption + Me.Label65.Caption '


l'aiuto che vorrei è questo:
ho necessità, con la funzione userform_activate, di inserire nella "label65.caption" un valore che veda l'ultimo inserito e lo ampli di 1. esempio( ultimo numero 000001 "presente già nel database", nella userform il nuovo caption 000002).

chi mi aiuta? grazie mille.

Ciao
Non so se ho capito bene ma provo a darti un suggerimento.

Quando salvi il file NON cancellare la Captiono della Label65.
Nel momento in cui riapri il file e attivi l'UserForm, assumiil valore della Label65 lo incrementi di un'unità (attento alla formattazione) e riassegni come Caption.

Consentimi un consiglio: nella dichiarazione di variabili che si riferiscono a Row o Column utilizza sempre Long e non Integer.

Ciao,
Mario

grazie mille dell'aiuto mario.