Dim F As Integer
Dim sLine As String
Dim sPos As Long
Dim ePos As Long
Dim sComment As String
 
F = FreeFile
Open "Datei.htm" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  sPos = InStr(sLine, "#")
  If sPos > 0 Then
    ePos = InStr(sPos + 1,sLine,  "#")
    sComment = Mid$(sLine, sPos + 1, ePos - sPos - 1)
    MsgBox sComment
  End If
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de