Sub Sample() Dim buf As String Open "c:\tmp.txt" For Output As #1 Print #1, "123ABC456DEF" Close #1 Open "c:\tmp.txt" For Input As #1 buf = Input(3, 1) MsgBox buf buf = Input(3, 1) MsgBox buf Close #1 End Sub