Code:
brwWebBrowser.Document.Clear
brwWebBrowser.Document.Write HTMLString
brwWebBrowser.Document.Close
'Add this line
brwWebBrowser.Document.body.innerHTML = HTMLString


'You should also comment these out
'Private Sub lvwCodes_KeyDown(KeyCode As Integer, Shift As Integer)
'lvwCodes_Click
'End Sub

'Private Sub lvwCodes_KeyPress(KeyAscii As Integer)
'lvwCodes_Click
'End Sub

'And use only this
Private Sub lvwCodes_KeyUp(KeyCode As Integer, Shift As Integer)
lvwCodes_Click
End Sub