dim appath as string
textbox1.text=""
appath=application.startuppath()
openfiledialog1.filename=appath & "text.txt"
openfiledialog1.filter="textfiles(*txt)|*.txt|all iles(*.*)|*.*"
openfiledialog1.filterindex=2