Option Explicit

'フォームをロードしました
Private Sub Form_Load()
    'WindowsFAQファイルを読み込みます
    Text1.Text = FileOpen("C:\Windows\faq.txt")
End Sub

'フォームのサイズを変更しました
Private Sub Form_Resize()
    'テキストボックスのサイズを
    'フォーム全体に広げます
    Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub


'ファイルの内容をテキスト形式で返します
Function FileOpen(ByVal strPath As String) As String
    Dim fn          As Integer
    Dim fz          As Long
    Dim bytArray()  As Byte
    
    'ファイルのサイズを取得します
    fz = FileLen(strPath)
    
    'バイト配列のサイズを
    'ファイルサイズに合わせます
    ReDim bytArray(fz - 1)
    
    'ファイルを開き
    '(配列に入りきる)すべてのデータを読み込みます
    fn = FreeFile
    Open strPath For Binary As #fn
        Get #fn, , bytArray
    Close
    
    'バイト配列を通常の文字列に変換して
    '関数に返します
    FileOpen = StrConv(bytArray, vbUnicode)
End Function