Kopieer 1e 10 karakters van textbox naar listbox

[Jelle2010]

Beste experts,

Ik heb een textbox met een bepaalde waarde. Nu wil ik alleen de 1st 10 karakters van de waarde in de textbox kopieren naar de listbox. Heeft iemand een idee hoe dit moet?
Alvast super bedankt.

Jelle2010

 

[Warme bakkertje]

Sub tst()
    If TextBox1 = "" Then Exit Sub
    ListBox1.AddItem "xxx"
    ListBox1.List(UBound(ListBox1.List), 0) = Left(TextBox1.Text, 10)
    TextBox1 = ""
End Sub