Remove one item fr combo box 1

[Vec]

Basically my code is doing what I want it too, except for one small thing, it is adding one to many of something at the end of a combo box.
As you can see by the code below, it is reading from approved.txt and populating a combo box with the entries it finds, the approved.txt file contains one entry per line of domain names and I need them to be just the yahoo.com part of

http://www.yahoo.com

for instance because I plan to add a url filter, but that is another story. So when this code is run, it produces a combo box like this:

http://www.yahoo.com

http://www.msn.com

http://www.microsoft.com

http://www.

Notice the extra

[URL unfurl="true"]http://www.[/URL]

at the end? Well I want it to vanish.

Private Sub Form_Load()

Dim  result As Long, intFreeFile As Integer, sText As String, txt As String, inp_String As Integer, UrlLead As String

UrlLead = "[URL unfurl="true"]http://www."[/URL]

Combo1.Width = Me.ScaleWidth

result = SetWindowPos(frmMain.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

    App.TaskVisible = False

        Load_Ban

On Error Resume Next

intFreeFile = FreeFile

Open App.Path & "\approved.txt" For Binary Access Read As #intFreeFile

      Do Until EOF(intFreeFile)

         Line Input #intFreeFile, txt

         txt = UrlLead + txt

         Combo1.AddItem txt

         txt = vbNullString

      Loop

Close #intFreeFile

End Sub

-------------------------------------------------------------------------
-------------------------------------------------------------------------

"Only two things are infinite, the universe and human stupidity, and I'm not sure about the former."
- Albert Einstein (1879-1955)

 

[LPlates]

Try this instead..

While Not EOF(intFreeFile)
Line Input #intFreeFile, txt
txt = UrlLead + txt
Combo1.AddItem txt
txt = vbNullString
Wend

if that doesnt remove the unwanted input then try...

Combo1.RemoveItem Combo1.ListCount - 1