Office: Problem Eingabemaske Formel anpassen

Hallo,

hab' hier ein schwerwiegendes Problem!
Folgende Anweisung in meiner UserForm namens "KlientenLieferantenVerwaltung" müsste so angepasst werden, dass nach der Eingabebestätigung ( Dateneingabe ), die TextBox22 eine Aufgabe erledigt.
Und zwar erfasse ich hiermit Kunden. Die KundenNr. sollte nach der Eingabebestätigung selbstständig erzeugt werden ( im Format 2008-0001) und folgende Bsp.: 2008-0002 etc.
Diese TextBox22 lasse ich bewusst leer und habe sie per Hinweis(UserForm) gesichert, so dass niemand Eintragungen darin vornehmen kann.
Das Format der KundenNr. sollte eine Verkettung aus dem aktuellen Jahr 2008 mit Jahreswechselanpassung sein + 0001 u. folgende.
Gehe davon aus, dass ich eine Spalte eines Tabellenblatts mit hinzuziehen muß, da sich ja Excelchen daran orientieren muß, welche KundenNr. schon vergeben wurde und welche noch frei ist. ( Gehe ich mal als Laie davon aus )?
Die Löschen-Funktion wird hier von mir deaktiviert, so daß kein Kunde gelöscht werden kann. Dies würde dieses Drama wahrscheinlich nur noch verschlimmern!

Zudem, kann mir jemand sagen, welche Position in dieser Anweisung bestimmt, dass TextBox1 gefüllt sein muß, damit die Eingabe akzeptiert bzw. ausgeführt wird?
Wo kann man dies auf TextBox10 umdefinieren?

Das ist jetzt was für Hardcore-Excelaner! Bin überfordert!

Gruß timi

Hier die Anweisung, welche ich bereits teilweise an meine Bedürfnisse angepasst habe:
Option Explicit

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <0> 0 Then
Rows(ComboBox1.ListIndex + 1).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""
TextBox21 = ""
TextBox22 = ""
UserForm_Initialize
End If
TextBox1.Value = "Nur eintragen, wenn Gewerbe!"
TextBox2.Value = "Nur eintragen, wenn Gewerbe!"
TextBox3.Value = "Nur eintragen, wenn Gewerbe!"
End If
End Sub

Private Sub CommandButton2_Click()
If TextBox10.Value = "" Then
Beep
KeinEintragVorgenommen.Show
Else
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [M65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
End If
Cells(xZeile, 13) = TextBox1
Cells(xZeile, 14) = TextBox2
Cells(xZeile, 15) = TextBox3
Cells(xZeile, 16) = TextBox4
Cells(xZeile, 17) = TextBox5
Cells(xZeile, 18) = TextBox6
Cells(xZeile, 19) = TextBox7
Cells(xZeile, 20) = TextBox8
Cells(xZeile, 21) = TextBox9
Cells(xZeile, 22) = TextBox10
Cells(xZeile, 23) = TextBox11
Cells(xZeile, 24) = TextBox12
Cells(xZeile, 25) = TextBox13
Cells(xZeile, 26) = TextBox14
Cells(xZeile, 27) = TextBox15
Cells(xZeile, 28) = TextBox16
Cells(xZeile, 29) = TextBox17
Cells(xZeile, 30) = TextBox18
Cells(xZeile, 31) = TextBox19
Cells(xZeile, 32) = TextBox20
Cells(xZeile, 33) = TextBox21
Cells(xZeile, 34) = TextBox22
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""
TextBox21 = ""
TextBox22 = ""
Columns("M:AH").Sort Key1:=Range("M2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm_Initialize
TextBox1.Value = "Nur eintragen, wenn Gewerbe!"
TextBox2.Value = "Nur eintragen, wenn Gewerbe!"
TextBox3.Value = "Nur eintragen, wenn Gewerbe!"
End If
End Sub

Private Sub CommandButton3_Click()
MaskeWirdGeschlossen.Show
Startseite.ComboBox1.Value = "Klient / Lieferant"
Unload Me
End Sub

Private Sub TextBox9_Enter()
Länderkennzeichen.Show
End Sub

Private Sub UserForm_Activate()
TextBox1.Value = "Nur eintragen, wenn Gewerbe!"
TextBox2.Value = "Nur eintragen, wenn Gewerbe!"
TextBox3.Value = "Nur eintragen, wenn Gewerbe!"
End Sub

Private Sub UserForm_Initialize()
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [M65536].End(xlUp).Row
ComboBox1.AddItem "Neuer Klient / Lieferant hinzufügen"
For i = 2 To aRow
ComboBox1.AddItem Cells(i, 12) & " - " & Cells(i, 18) & ", " & Cells(i, 17)
Next i
ComboBox1.ListIndex = 0
Application.EnableEvents = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Startseite.ComboBox1.Value = "Klient / Lieferant"
End If
End Sub