該怎麼讀檔??(編號：8178)

我想做的是利用Commondialog中的showopen來讀檔
並且把所指定到的檔案內容在Text1中顯示出來
Private Sub fileold_Click()
CommonDialog1.DialogTitle = "開啟舊檔"
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowOpen
Text1.Text=.....
End　Sub
請問該怎麼做才可以?????