Set xmldoc = CreateObject( "Microsoft.XMLDOM" )
xmldoc.async = false

fname=InputBox("ファイル名を入力して下さい。","ファイル名")
if ( fname <> "") Then
rtn = xmldoc.load( fname )
If rtn = True Then
MsgBox( "ファイル内は正常です。" )
Else
MsgBox( "エラー！" & vbCrLf & _
"行番号　：　" & xmldoc.parseError.line & vbCrLf & _
"内容　　：　" & xmldoc.parseError.reason )
End If
End If

これをファイル名を入力するのではなく、ドラッグアンドドロップで実行したいのですが、
うまくいきません。
どなたかお願いします。