下面所舉的例子均假設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 StringOpen "f:\d.txt" For Binary As #1sA = Space(LOF(1)) "用空格填充sA變數Get #1, , sA "用Get語句獲取檔案全部內容RichTextBox1.Text = sAClose #1End Sub；三、用StrConv函式將檔案的控制字串資料和Unicode碼之間進行轉換，從而達到開啟檔案的目的。可開啟任意大小檔案。再給一個簡單例子：Private Sub Command1_Click()Open "f:\d.txt" For Input As #1RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)Close #1End Sub；四、用Shell語句直接調出Windows的記事本，給個檔名即可輕而易舉地開啟文字檔案。此法適合於開啟程式的Readme檔案(注意：在可執行檔案和要開啟的文字檔案之間要有空格)：Shell "NotePad.EXE f:\d.txt",vbNormalFucus；五、用RichTextBox控制元件自身的LoadFile屬性開啟檔案：RichTextBox1.LoadFile "f:\d.txt", rtfText。