dim obj
set obj = CreateObject("SeraphyScriptTools.Instance")
obj.MainFrame.Open "SAMPLE1"
obj.MainFrame.DoModal