!ヒアドキュメント

                    Dim param As Hashtable = New Hashtable
                    param("削除フラグ") = "0"
                    Dim Str As String = <text>これは、ヒアドキュメントです。
 SELECT
     取引先コード
     ,取引先名
 FROM 取引先マスタ
 WHERE 
  取引先コード = @ID
  削除フラグ = <%= param("削除フラグ") %>  
 ;
 
 とかそのままSQL文が書けます。
 参照設定で『System.Xml.Linq』を追加すれば使えます。
 
 また、SQLはプレースホルダーを使いましょう。
 例）
                    Dim ID As Integer
                    param("削除フラグ") = "0"
                    Dim SqlCommand As New System.Data.OleDb.OleDbCommand
                    SqlCommand.CommandText = &lt;sql&gt;
 SELECT
    取引先コード
    ,取引先名
 FROM 取引先マスタ
 WHERE
  取引先コード = @ID
  削除フラグ = &lt;%= param("削除フラグ") %&gt;  
 ;
                                             &lt;/sql&gt;
                    SqlCommand.Parameters.Add("@ID", OleDb.OleDbType.Integer)
                    SqlCommand.Parameters("@ID").Value = ID
 
 </text>
                    MsgBox(Str)

{{ref_image here_document.png}}

!Windows7 sendto(送る)
ファイル名を指定して実行から「shell:sendto」

フォルダの実体
「C:\Users\ユーザーアカウント\AppData\Roaming\Microsoft\Windows\SendTo」