'# テキストファイルを一括読み込み
Private Function ReadFile(strFilename As String) As String

    Dim nFNO        As Integer 'ファイル番号
    Dim strData     As String

    nFNO = FreeFile '空ファイル番号取得
    Open strFilename For Input As #nFNO
    strData = StrConv(InputB(LOF(1), #nFNO), vbUnicode)
    Close #nFNO '閉じる

    ReadFile = strData

End Function

'# テキストファイルに書き込み
Private Function WriteFile(strFilename As String, args As String)

    Dim nFNO As Integer 'ファイル番号

    nFNO = FreeFile '空ファイル番号取得
    Open strFilename For Output As #nFNO
    Print #nFNO, args
    Close #nFNO '閉じる

End Function