bu kadar uzatmayada gerek yok aslında :)
dim i
i = Shell(".txt", 3)
veya
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName + " " + ".txt"
Shell Text1.Text
kullanılabilirdi :)