Nu kommer jag med mina tokiga frågor igen. Jag har en textbox med flera arbetsnummer i (hämtat från ett arbetsschema) Varje arbetsnummer har ett -(bindestreck) framför sig. Textboxen kan se ut så här:

-201-204-RE-311-TD-101

Ibland kan det vara 5 personer, ibland 6 och ibland 7. Nu skulle jag vilja att dom här numren hamnar i varsin textbox, (har 7 st. så ibland blir någon textbox tom) givetvis utan bindestrecket, när jag trycker på en knapp. Jag är dålig på lopar så nån hanske kan hjälpa mig.

Svarar mig själv. Provade att lägga över alla nummer till en listbox istället. Ska pröva om det är enklare att hämta dom från en listbox och placera dom i varsin textbox.

Det verkar onödigt att använda en ListBox.
Använd Split functionen enl ex nedan.
Dvs du lägger de olika arbnummer i en array och sedan läser in i dina TextBoxar.
<code>
Option Explicit
Private Sub Command1_Click()
Dim ArbNummer() As String, testStr As String, i As Long
'testar strängen. Ta bort det inledande "-" annars börjar det på ArbNummer(1)
testStr = "201-204-RE-311-TD-101" ' Eller testStr = Text1.Text
ArbNummer = Split(testStr, "-")
'Du har en Array av TextBoxar 0-6 här Text2(0-6)
For i = 0 To UBound(ArbNummer)
Text2(i).Text = ArbNummer(i)
Next 'i
End Sub
</code>