گذاشتن محتویات یک فایل تکست در تکست باکس؟

[upload]

چطور می تونم توسط کنترل CommonDialog محتویات یک فایل تکست رو در text1 بریزم؟
CommonDialog1.showopen
بعد که فایل تکست رو توسط CommonDialog1 انتخاب کردم و open رو زدم می خوام محتویات فایل تکست در text1 ریخته بشه!

[M.T.P]

اینطوری (http://barnamenevis.org/forum/showthread.php?t=252591)

[alirezash]

fileName= مسیر فایل ورودی

dim a as string
Open FileName For Input As #1
Dim text As String
Do While Not EOF(a)
Line Input #1, a
Text1.text = Text1.text + vbCrLf + a
Loop
Close #1