List1.RemoveItem virker ik??

Private Sub cmdDel_Click()
  List1.RemoveItem List1.ListIndex
End Sub

Der hvor du sætter teksten ind kan du skrive Trim(Teksten) så vil alle foran og bagved stillede blanke blive fjernet.

For i = 1 To List1.ListCount - 1
If List1.Selected(i) Then
List1.RemoveItem (i)
End If
Next

For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List1.RemoveItem (i)
End If
Next

rettet

bertie... det første du skrev virkede fint... men det andet... jeg vil ik trimme det... jeg vil fjerne alle TOMrum der er... meaning... der står fx..

hey
---
hey
---
    <---- dem der
hey
---
    <---- dem der
hey
---

kan du hjælpe mig med det?

Du skal bare checke på om din streng = "" hvis den er det så skal du ikke putte dem i listen.

Ellers post lige koden hvor du læser filen og ligger ind i listboksen så kigger jeg lige på den.

her er alt:

---

Option Explicit
Dim lbr As String, strLektia As String, strLine As String, strFileName As String
Dim iCtr As Integer, iCnt As Integer
Dim blnFileExists As Boolean
Dim fs As New FileSystemObject

Private Sub cmdAdd_Click()
On Error GoTo errorhandler
strLektia = InputBox("Hvat hevur tú fyri?", "Lektia")
If Not (strLektia = "") Then
    List1.AddItem strLektia & Space(10) & "<------- added " & Now
    List1.AddItem "---"
End If
Open strFileName For Output As #2
    For iCtr = 0 To List1.ListCount
        Write #2, List1.List(iCtr)
    Next iCtr
Close #2
Exit Sub
errorhandler:
MsgBox "An Error Occurred: " & vbNewLine & "Description: " & _
Err.Description & vbNewLine & "Please e-mail me, if you " & _
"saw this message. Thanks!", vbCritical, "An Error Occurred"
MsgBox "oh.. btw... the e-mail address is: WebPsycho_@hotmail.com"
End Sub

Private Sub cmdDel_Click()
List1.RemoveItem List1.ListIndex
Open strFileName For Output As #2
    For iCtr = 0 To List1.ListCount - 1
        Write #2, List1.List(iCtr)
    Next iCtr
Close #2
End Sub

Private Sub Form_Load()
strFileName = App.Path & "\" & "31337.dll"
If Not (fs.FileExists(strFileName)) Then
    Exit Sub
End If
lbr = vbNewLine & vbNewLine
cmdAdd.Caption = "A" & vbNewLine & "d" & vbNewLine & "d" & vbNewLine & vbNewLine & _
                "I" & vbNewLine & "t" & vbNewLine & "e" & vbNewLine & "m" & lbr & _
                "T" & vbNewLine & "o" & vbNewLine & vbNewLine & "L" & vbNewLine & _
                "i" & vbNewLine & "s" & vbNewLine & "t"
cmdDel.Caption = "D" & vbNewLine & "e" & vbNewLine & "L" & vbNewLine & vbNewLine & _
                "I" & vbNewLine & "t" & vbNewLine & "e" & vbNewLine & "m" & lbr & _
                "F" & vbNewLine & "r" & vbNewLine & "o" & vbNewLine & "m" & _
                vbNewLine & vbNewLine & "L" & vbNewLine & "i" & vbNewLine & "s" & _
                vbNewLine & "t"
Open strFileName For Input As #1
    Do While Not EOF(1)
        Input #1, strLine
        List1.AddItem strLine
    Loop
Close #1
End Sub

Private Sub t1_Timer()
frmLektiu.Caption = "Klokkan er " & Mid(Now, 12) & Space(45) & "Dato: " & Mid(Now, 1, 10)
End Sub

---

Dette
Open strFileName For Input As #1
    Do While Not EOF(1)
        Input #1, strLine
        List1.AddItem strLine
    Loop
Close #1

rettes til

Open strFileName For Input As #1
    Do While Not EOF(1)
      Input #1, strLine
      if Trim(strLine) <> "" Then 
        List1.AddItem strLine
      End If
    Loop
Close #1

aaaaah... tak for det... :)

Velbekomme og takker for point :-)