Option Explicit 'Test1の内容を tmp.tmp ファイルに書き込む Private Sub cmdPUT_Click() Dim fno Dim strWORK1 As String Kill App.Path & "\tmp.tmp" strWORK1 = Text1.Text fno = FreeFile Open App.Path & "\tmp.tmp" For Binary As fno Put #fno, , strWORK1 Close fno End Sub 'tmp.tmp ファイルの内容を 読んで strWORK1のサイズ分まで入れ込んで Messageに表示する。 Private Sub cmdGET_Click() Dim fno Dim strWORK1 As String * 10 fno = FreeFile Open App.Path & "\tmp.tmp" For Binary As fno Get #fno, , strWORK1 Close fno MsgBox strWORK1 End Sub