Dim Seite As String
 
Private Sub cmdHTML_Click()
Seite = "http://example.com/statistic.php?PHPSESSID=" & _
txtSessionID.Text
 
On Error GoTo StopSub
Inet1.Cancel
txtHTML.Text = Inet1.OpenURL(Seite)
Exit Sub
 
StopSub:
 
Inet1.Cancel
MsgBox "ERROR: " & Err.Description, vbCritical
Exit Sub
 
End Sub