Option Explicit　　 'SampleNo=060　 2002.05.13

Private Sub Command1_Click()
　　Dim TextLine As String
　　Dim fileNo　 As Integer

　　fileNo = FreeFile　　'使用可能なファイル番号を取得します

　　Open "testfile.txt" For Input As #fileNo　' ファイルを開きます。

　　' ファイルの終端までループを繰り返します
　　Do While Not EOF(fileNo)
　　　　Line Input #fileNo, TextLine　　　　　'行単位で変数に読み込みます。
　　　　'デバッグウィンドウに表示します。
　　　　List1.AddItem fStrField$(TextLine, 1, 4)
　　　　List1.AddItem fStrField$(TextLine, 5, 3)
　　　　List1.AddItem fStrField$(TextLine, 8, 8)
　　Loop

　　Close #fileNo　　　　 ' ファイルを閉じます。
End Sub

'MyField=StrConv(MidB$(StrConv(Mydat,vbFromUnicode),1, 4), vbUnicode)
'を関数化したものです
'特に関数化する必要はありませんがプログラムがすっきりするので
Private Function fStrField(ByVal Mydat As String, _
　　　　　　　　　　　　　　Sn As Long, Kn As Long) As String
　　fStrField = StrConv(MidB$(StrConv(Mydat, _
　　　　　　　　　vbFromUnicode), Sn, Kn), vbUnicode)
End Function