[RESOLVED] Object doesn't support this property or method 438

[Doogle]

I assume you tested it first?

Yup - not thouroughly but It worked ok for me.

and obviously HTMLString wasn't declared

see Item 2 in my previous post.("2. Defined HTMLString in the Declarations Section and removed its definitions in the Form_Load and lvwCodes_Click events.")

Regarding the VAG /EOBD: isn't it just a matter of moving

    If lvwCodes.SelectedItem.SubItems(1) <> "-" Then
        HTMLString = HTMLString & "<b>EOBD II Error Code:</b> " & lvwCodes.SelectedItem.SubItems(1) & "<p/><p/>"
    End If

into the 'Else' clause of the preceding 'If' statement ?
i.e. from this

If lvwCodes.SelectedItem.Text = "-" Then
    HTMLString = HTMLString & "<center><h2>" & "EOBD II Error Code: " & lvwCodes.SelectedItem.SubItems(1) & "</h2></center><p/><p/>"
Else
    HTMLString = HTMLString & "<center><h2>" & "VAG Error Code: " & lvwCodes.SelectedItem.Text & "</h2></center><p/><p/>"
End If

'VAG,EOBD
If lvwCodes.SelectedItem.SubItems(1) <> "-" Then
    HTMLString = HTMLString & "<b>EOBD II Error Code:</b> " & lvwCodes.SelectedItem.SubItems(1) & "<p/><p/>"
End If

to this

If lvwCodes.SelectedItem.Text = "-" Then
    HTMLString = HTMLString & "<center><h2>" & "EOBD II Error Code: " & lvwCodes.SelectedItem.SubItems(1) & "</h2></center><p/><p/>"
Else
    HTMLString = HTMLString & "<center><h2>" & "VAG Error Code: " & lvwCodes.SelectedItem.Text & "</h2></center><p/><p/>"
    If lvwCodes.SelectedItem.SubItems(1) <> "-" Then
        HTMLString = HTMLString & "<b>EOBD II Error Code:</b> " & lvwCodes.SelectedItem.SubItems(1) & "<p/><p/>"
    End If
End If