option explicit
const MEMO_FILE ="c:\windows\ﾃﾞｽｸﾄｯﾌﾟ\link.html"
dim Fs,Strm
Dim strMemo
Set Fs = CreateObject("Scripting.FilesystemObject")
Set Strm = Fs.OpenTextFile(MEMO_FILE,8,True,-2)
strMemo = InputBox("アドレスを打って。(ダブルクォーテーションで囲んでネ)",MEMO_FILE)
If""<>strmemo Then
Strm.WriteLine"<a href="
Strm.WriteLine strMemo
Strm.WriteLine">"
Strm.Close
End If


Set Fs = CreateObject("Scripting.FilesystemObject")
Set Strm = Fs.OpenTextFile(MEMO_FILE,8,True,-2)
strMemo = InputBox("タイトルを入れて。",MEMO_FILE)
If""<>strmemo Then
Strm.WriteLine strMemo
Strm.WriteLine"</a>"
Strm.Close
End If

Set Fs = CreateObject("Scripting.FilesystemObject")
Set Strm = Fs.OpenTextFile(MEMO_FILE,8,True,-2)
strMemo = InputBox("一言コメントを入れて。",MEMO_FILE)
If""<>strmemo Then
Strm.WriteLine"<BLOCKQUOTE>"
Strm.WriteLine strMemo
Strm.WriteLine"</BLOCKQUOTE>"
Strm.Close
End If