VB6プログラマのためのCurl入門
ファイルアクセスとWebアクセス

Option Explicit

Private Sub Form_Load()
    ' 変数の宣言
    Dim buff As String
    
    ' ファイルを開くダイアログボックスを表示する
    CommonDialog1.ShowOpen
    
    ' エラー時にはERR_HANDLERにジャンプする
    On Error GoTo ERR_HANDLER
    
    ' ファイルを開く
    Open CommonDialog1.fileName For Input As #1
    
    ' ファイルを末尾まで読み出す
    Do Until EOF(1)
        ' 1行読み出す
        Line Input #1, buff
        ' テキストボックスに追加する
        Text1.Text = Text1.Text & buff
        ' 行末に改行を付加する
        Text1.Text = Text1.Text & vbCrLf
    Loop
    
    ' ファイルを閉じる
    Close #1

    ' 正常終了
    Exit Sub
    
    ' エラー終了
ERR_HANDLER:
    MsgBox "エラーです！"
End Sub