テキストの保存と読み込み

Option Explicit

Public Function cmdText(ByVal Mode As String, ByRef tBox As Object, ByVal FileName As String) As Long
    Dim FreeNumber As Long
    Dim TmpText As String
    Dim TmpENumber As Long
    
    FreeNumber = FreeFile
    'tbox.Visible = False
    Select Case UCase(Mode)
        Case "OPEN"
            
            On Error Resume Next
            Open FileName For Input As #FreeNumber
            TmpENumber = Err.Number
            On Error GoTo 0
            
            If TmpENumber = 0 Then
                Do While Not EOF(FreeNumber)
                    Line Input #FreeNumber, TmpText
                    If EOF(FreeNumber) Then
                        tBox.SelText = TmpText
                    Else
                        tBox.SelText = TmpText & vbCrLf
                    End If
                Loop
            Else
                cmdText = TmpENumber
                Exit Function
            End If
            
            Close #FreeNumber
        
        Case "SAVE"
            
            On Error Resume Next
            Open FileName For Output As #FreeNumber
            TmpENumber = Err.Number
            On Error GoTo 0
            
            If TmpENumber = 0 Then
                Print #FreeNumber, tBox.Text
            Else
                cmdText = TmpENumber
                Exit Function
            End If
            
            Close #FreeNumber
    End Select
    'tBox.Visible = True
End Function

第一引数　テキストを保存するのか、読み込むのか指定します。
	設定値、保存時「Save」、読み込み時「Open」を指定します。
	（大文字小文字どちらでも可）

第二引数　使用しているテキスト（リッチエディット）ボックスを指定。
	テキストボックスのオブジェクト名が「Text1」の時は、「Text1」を設定する。

第三引数　保存又は読み込むファイル名を指定。
	（フルパスで指定します。）