>>700
「ＩＥコンポーネントを使い倒すスレ」の22を見てみよう
意味がわかれば、こんな感じになる事がわかると思う。

Private WithEvents HTMLDoc As HTMLDocument

Private Function HTMLDoc_oncontextmenu() As Boolean
　　PopupMenu mnuMenu　　'独自メニューを表示
End Function

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
　　Set HTMLDoc = pDisp.Document
End Sub

ただしフレームがある場合、これではWebBrowser1で最後に開いたフレーム内の
Documentオブジェクトしか取得する事が出来なかったので、そこから先は自分で
考えてくれ

>>701
かなりテキトーだけど
select x,y,(x + y) as xy from table order by xy,x,y;
で上手くいったりしない？（汗


>>698
勘違いしてそうなので・・・
Chr(13)　→　vbCr
Chr(10)　→　vbLf
Chr(13) & Chr(10)　→　vbCrLf