udělej to obráceně - uprav soubor před načtením do ListBoxu
Private Sub RemoveRem(ByVal fName As String, ByVal lstBox As ListBox)
Dim fix() As String
Dim strR As New System.IO.StreamReader(fName)
Dim txt As String = strR.ReadToEnd
strR.Close()
txt = System.Text.RegularExpressions.Regex.Replace(txt, "<!--[^\-]+-->", "")
fix = Split(txt, vbCrLf)
lstBox.Items.Clear()
For i As Integer = 0 To fix.Length - 1
If Trim(fix(i)) <> "" Then lstBox.Items.Add(fix(i))
Next
End Sub
a z OpenFileDialog při OK zavoláš
RemoveRem(tvuj_openfiledialog.FileName, tvuj_ListBox)