如何秀出檔案內容....(編號：6941)

我是一個初學VB的新手，有一個問題想請教各位
我想在程式一開始執行就秀出文字檔的內容要如何做
且需把該內容存入一的自訂的變數中
下面是部分程式碼：
Private Sub MAC_DragDrop(Source As Control, X As Single, Y As Single)
List1.Clear
　　If Dir("sn.txt") = "" Then Exit Sub
　　
　　Open "sn.txt" For Input As #1
　　　　Do
　　　　　　Line Input #1, TmpStr
　　　　　　List1.AddItem TmpStr
　　　　Loop Until EOF(1)
　　Close #1
End Sub
我該如何修改呢？