>>558 って頭悪いのに偉そうだな。

普通に open / get / put / close するだけなんだが。

Option Explicit

Private Sub Test()
　　Dim F As Integer
　　Dim C As Byte
　　Dim L As Long
　　Dim I As Long

　　L = FileLen("c:\Test.txt")
　　F = FreeFile
　　Open "c:\test.txt" For Random Access Read Write Lock Read Write _
　　　As #F Len = 1
　　For I = 1 To L
　　　　Get #F, I, C
　　　　If C = &H31 Then
　　　　　　C = &H41
　　　　　　Put #F, I, C
　　　　End If
　　Next
　　Close #F
End Sub