Error Trapping Like Netscape

I don't think there is a way. This is probably the closest your going to get:

'Private Sub ....()
On Error Goto ErrorTrap
'code
Exit Sub
ErrorTrap:
Open App.path & "\error.log" For Append As #1
Print #1, "Error " & Err.Number & ":  " & Error$
Close #1
'End Sub