dim s s = inputbox ( "Prompt", "Title", "こりゃぁ・・、たまげたぁ・・・。あんたそりゃあ、飛行石の結晶じゃぁ。", -1, -1 ) msgbox s これを適当に「test.vbs」とでも名前を付けて保存 後はダブルクリック ってなんで普段使ってないVBScriptの解説してるんだろ