TextBox Versionsnummer Generieren

[Rogue]

Guten Tag Community,

habe eine userform erstellt bzw. kleine Datenbank...
Diese kleine Datenbank soll eine auflistung von update eintragungen dinen.

Es Funkzoniert auch soweit fast alles.
habe nur noch Probleme mit der Versionsnummer, die ist unabhänig von der ID nummer.
Die Versionsnummer soll beim Neuen Eintrag generiert bzw vom letzten Eintrag hochgezählt werden.
TextBox901

Code:

'Schaltfläche "Neuer Eintrag"
Private Sub CommandButton1_Click()
    ' Werte löschen
    Call Eingaben_clear
    ' ListIndex zurücksetzen, Eingabe freigeben
    With Me
        .ListBox900.ListIndex = -1
        .TextBox900.Locked = False
        .TextBox900.SetFocus
        ' Defaultwerte
        .TextBox900 = "" & .ListBox900.ListCount + 1
        .TextBox902 = Format(Date, "dd.mm.yyyy") 'Erstellungs Datum
        .TextBox901 = Format(Me.TextBox901.Text, "V#,##0.000")'Versionsnummer

    End With
End Sub

Die Versionsnummer ist ca. so aufgebaut.
V2.001
V2.002
Wenn V2.999 erreicht ist, soll ich von alleine, auf V3.001 aufzählen.

Kann mir einer da weiter helfen?´

Gruß

[Kuwer]

Hallo,

hier mal ein Beispiel, wie die Null übersprungen wird. Kannst Du ja dann in Deinen Code entsprechend übertragen.

Code:

Sub aaa()
  Dim x As Long
  Dim strZ As String
  strZ = 998
  Do While strZ < 1002
    strZ = strZ + 1 - (((strZ + 1) Mod 1000) = 0)
    Debug.Print Format(strZ, "V0,000")
  Loop
End Sub

Gruß Uwe