give this edit a try. if it doesnt work this time, please include the entire error shown.
i need to know exactly which onject is not set.
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
Dim elems As HtmlElementCollection
elems = WebBrowser1.Document.GetElementsByTagName("div")
For Each elem As HtmlElement In elems
Dim classstr As String = ""
classstr = elem.domelement.className
If classstr <> "" Then
If classstr.ToLower() = "description" Then
Dim conStr As String = elem.innertext
PrintLine(1, conStr)
ElseIf classstr.ToLower() = "caption-line-text" Then
Dim conStr As String = elem.Innertext
PrintLine(1, conStr)
End If
End If
Next
FileClose(1)
End If
End If