ファイルがありませんとエラーします。
"C:\Documents and Settings\XPT\デスクトップ\kanren.txt"が、C:\Documents　ここまでしか
認識されません。どうも次にスペースがあるからと思えるのですが、どうすれば良いでしょうか？

Private Sub Command1_Click()
    Dim tmp1_t As String
    Dim tmp2_t As String
    tmp1_t = "C:\Program Files\Windows NT\Accessories\WORDPAD.EXE"
    tmp2_t = "C:\Documents and Settings\XPT\デスクトップ\kanren.txt"
    Shell PathName:=tmp1_t & " " & tmp2_t, WindowStyle:=vbNormalFocus
End Sub

> 認識されません。どうも次にスペースがあるからと思えるのですが、どうすれば良いでしょうか？

よくある話です。「vb6 shell 引数」で検索していろいろ見て下さい。
http://homepage1.nifty.com/MADIA/vb/vb_bbs2/200407/200407_04070046.html

単純にコマンドプロンプトを開いて、
スペースのあるパスをドラックアンドドロップしたとき、
スペースのないパスをドラックアンドドロップしたとき、

で、どのような違いが発生するか？確認してみましょう。

VBというよりは、CUIで扱う上で基本ルールです。

# 本題とは別の所に反応。

> 単純にコマンドプロンプトを開いて、
> スペースのあるパスをドラックアンドドロップしたとき、
> スペースのないパスをドラックアンドドロップしたとき、

Vista/Windows 7 だと、ドロップでパスを渡せなかったりします…。
(Shift + 右クリックして、[パスとしてコピー]を利用する仕様に変更されました)

> Vista/Windows 7 だと、ドロップでパスを渡せなかったりします…。
> (Shift + 右クリックして、[パスとしてコピー]を利用する仕様に変更されました)

Win 7、なんか、既存のシステムに影響しそうだなぁ
まぁ、そのためのXPモードなのでしょうが・・・。

解決しました。どうもありがとうございます。