hur skall man göra för att föra över en text på ett par rader till en listbox?
är det någon som kan hjälpa mig med denna koden?

Menar du med "text på ett par rader" att varje rad också ska vara en egen rad i listboxen, eller ska hela innehållet läggas till som en rad?

För att lägga till som en rad:
ListBox1.Add Text1.Text

Mvh
/EE

Hej
Roade mig med att skriva ihop en snabblösning
utan att fundera på alla variabler Men ! ?

Option Explicit
Private Sub Command1_Click()
Dim tmpStr As String, i As Long, pos As Long
tmpStr = Text1.Text
Do Until i >= Len(tmpStr)
pos = InStr(tmpStr, vbCrLf)
List1.AddItem Mid$(tmpStr, 1, pos - 1)
tmpStr = Mid$(tmpStr, pos + 2)
Loop
End Sub

Funkar hos mig , Men hur tusan kan det göra det
Jag använder ju aldrig varaibeln i ??????

Fundersam
Sven

i har värdet 0, och eftersom längden av en tom sträng är noll stämmer det. Skulle ersätta
Do Until i >= Len(tmpStr)
med
Do Until Len(tmpStr) = 0
om jag var du. :-)
Mvh
/EE

Hej
"Do Until Len(tmpStr) = 0" Sa Bill "Så var det sa Bull"

Enkelt men ganska genialiskt.

mvh
Sven