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