下面所舉的例子均假設F盤下有壹個名為d.txt的文本文件，若需要嘗試這些例子請作相應的改動。
壹、用定長的String變量獲取文本內容。由於定長String變量支持的下界為65400,所以在打開超過32K字節的文件時超出部分的字節將無法獲取: Private ? Sub ? Command1_Cliack() Dim ? sA ? As ? String ? * ? 65400 ? '聲明定長String變量 ? Open ? "F:\d.txt " ? For ? Binary ? As ? #1 ? '用二進制打開文件 Get ? #1, ? , ? sA ? '用Get語句從文件中獲取字節 Text1 ? = ? sA ? '顯示打開的文件 Close ? #1 ? '關閉文件 End ? Sub；
二、先聲明壹字符串變量，然後用空格填充字符串，使變量大小與文件大小壹致，再通過Get語句將文件全部數據存儲到變量中，從而達到獲取整個文件字節數的目的。
此法可以打開大於32K的文件，但應該註意的是，裝載文件的容器必須能裝載大於32K的文件，下例用RichTextBox控件顯示打開的文件： Private ? Sub ? Command1_Click() ? Dim ? sA ? As ? String Open ? "f:\d.txt " ? For ? Binary ? As ? #1 sA ? = ? Space(LOF(1)) ? '用空格填充sA變量 Get ? #1, ? , ? sA ? '用Get語句獲取文件全部內容 RichTextBox1.Text ? = ? sA Close ? #1 End ? Sub；
三、用StrConv函數將文件的控制字符串數據和Unicode碼之間進行轉換，從而達到打開文件的目的。可打開任意大小文件。
再給壹個簡單例子： Private ? Sub ? Command1_Click() Open ? "f:\d.txt " ? For ? Input ? As ? #1 RichTextBox1.Text ? = ? StrConv(InputB$(LOF(1), ? 1), ? vbUnicode) Close ? #1 End ? Sub；
四、用Shell語句直接調出Windows的記事本，給個文件名即可輕而易舉地打開文本文件。此法適合於打開程序的Readme文件(註意：在可執行文件和要打開的文本文件之間要有空格)： Shell ? "NotePad.EXE ? f:\d.txt ",vbNormalFucus；
五、用RichTextBox控件自身的LoadFile屬性打開文件： RichTextBox1.LoadFile ? "f:\d.txt ", ? rtfText。