高亮程式碼範例

txtContent.Text = "" '清除內容
Open sFile$ For Input As #1 '開啟文字檔
While Not EOF(1) '未到檔案尾端
Line Input #1, a$  '逐行讀取
txtContent.Text = txtContent.Text & a$ & vbCrLf  '逐行加入txtContent及換行符號
Wend  '反覆執行
Close #1'關閉檔案