[Amin_Mansouri]

بدی حرفت اینه گیر داردی به چند دستور بچ فایل !
که راحت میشه این دستورات همشو از کار انداخت.
توضیح دادم که اونجا که پسوند فایلها رو میدیم
با دستور open به فایل txt رو باز کن و ازش بخون !
دیگه خود دانی
با دستور زیر میتونیم یه فایل txt رو بخونیم و به نمایش بدیم.

کد:

Private Sub Form_Load()
MsgBox FileText("c:\parsicoders.txt")
End Sub

Function FileText(filename$) As String
Dim handle As Integer
handle = FreeFile
Open filename$ For Input As #handle
FileText = Input$(LOF(handle), handle)
Close #handle
End Function