お世話になります。

\!#$%&(=?""[]@+-^{~)'}:_;<`._\
上記の様なダブルコーテーションを含むデータをCSVファイルに
この様な形式"\!#$%&(=?""[]@+-^{~)'}:_;<`._\"にして出力したいのですが
どうしてもうまくいきません。
助けて下さいm(_ _)m

下記ではどうですか？

Private Sub Command1_Click()
    Dim intFileNo As Long
    Dim myTxt As String
    myTxt = "\!#$%&(=?""""[]@+-^{~)'}:_;<`._\"
    intFileNo = FreeFile
    Open "c:\Test.csv" For Output As #intFileNo
    Write #intFileNo, myTxt, myTxt, myTxt
    Close #intFileNo
End Sub

> 下記ではどうですか？
>
> Private Sub Command1_Click()
>     Dim intFileNo As Long
>     Dim myTxt As String
>     myTxt = "\!#$%&(=?""""[]@+-^{~)'}:_;<`._\"
>     intFileNo = FreeFile
>     Open "c:\Test.csv" For Output As #intFileNo
>     Write #intFileNo, myTxt, myTxt, myTxt
>     Close #intFileNo
> End Sub

下記の結果になります。
"""\!#$%&(=?""""[]@+-^{~)'}:_;<`._\"""

この様な結果にしたいのですが....
"\!#$%&(=?""[]@+-^{~)'}:_;<`._\"



> Private Sub Command1_Click()
>     Dim intFileNo As Long
>     Dim myTxt As String
>     myTxt = "\!#$%&(=?""[]@+-^{~)'}:_;<`._\"
>     intFileNo = FreeFile
>     Open "c:\Test.csv" For Output As #intFileNo
>     Write #intFileNo, myTxt, myTxt, myTxt
>     Close #intFileNo
> End Sub

> 下記の結果になります。
> """\!#$%&(=?""""[]@+-^{~)'}:_;<`._\"""

何で見ておられるのですか？　できたファイルをダブルクリックしてExcelに表示して見てください。



> この様な結果にしたいのですが....
> "\!#$%&(=?""[]@+-^{~)'}:_;<`._\"

メモ帳で見た場合なら
myTxt = "\!#$%&(=?""[]@+-^{~)'}:_;<`._\"　
で保存すれば下記のように表示されますが？
"\!#$%&(=?""[]@+-^{~)'}:_;<`._\","\!#$%&(=?""[]@+-^{~)'}:_;<`._\","\!#$%&(=?""[]@+-^{~)'}:_;<`._\"

セル表示は下記の様になります。
"\!#$%&(=?""[]@+-^{~)'}:_;<`._\"

これを下記の様なCSV形式に出力したいのですが...
"???","\!#$%&(=?""[]@+-^{~)'}:_;<`._\","???"

> これを下記の様なCSV形式に出力したいのですが...
> "???","\!#$%&(=?""[]@+-^{~)'}:_;<`._\","???"


myTxt = "\!#$%&(=?""[]@+-^{~)'}:_;<`._\"　
で保存すれば下記のように表示されますが？
"\!#$%&(=?""[]@+-^{~)'}:_;<`._\","\!#$%&(=?""[]@+-^{~)'}:_;<`._\","\!#$%&(=?""[]@+-^{~)'}:_;<`._\"

メモ帳で開いて確認して下さい。

ファイルに保存したいのではなく、読み込みたいのでは？

セル表示では
"\!#$%&(=?""[]@+-^{~)'}:_;<`._\"

上記を通りファイルに保存したのです。

今は、保存すると下記の様になります。
"???","""\!#$%&(=?""""[]@+-^{~)'}:_;<`._\""","???"

もう一度最初からの回答をよく読んで見て下さい。