Private Sub Form_Load()
    Show
 
    Dim Count As Long
    Dim FileNr As Integer
    Dim FileName As String
    Dim sAry() As String
 
    FileName = "C:\Dokumente und Einstellungen\Kein Name\Eigene Dateien\Eigene" & _
      "Webs\HtmlTest.htm"
 
    FileNr = FreeFile
    Open FileName For Input As #FileNr
        While Not EOF(FileNr)
            ReDim Preserve sAry(Count)
            Input #FileNr, sAry(Count)
            Count = Count + 1
        Wend
    Close #FileNr
 
    For i = 0 To UBound(sAry)
        Me.Print sAry(i)
    Next i
End Sub