>>247
ありがとうございます！
でも！
変わりませんでした……

34行目から47行目

Dim myURL,myID as string
Dim myFileName As string

myFileName = MS_NthFieldB(S_Source,"<h2 class=",2)
myFileName = MS_NthFieldB(myFileName,"</h2>",1)
myFileName = MS_NthFieldB(myFileName,chr(34)+">",2)
myFIleName = MS_HTMLtoText(myFileName)
if Instr(myFileName,"<!-- -->") > 0 then
myFileName = MS_NthFieldB(myFileName,"<!-- -->",3)
end if
myFileName = MS_FileName(myFileName)
if myFileName <> "" then
S_Container = myFileName
end if

ですよね？…
自分が変な文加えちゃったんでしょうか…