ファイルの保存は正常に保存できるのですが、読み込みが出来ません！！
プログラミング暦1ヶ月なので、このコードのどこがおかしいのかがわかりません。
よろしくお願いします。

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim a, b As Integer
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        TextBox3.Text = a + b
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim inifilepath, inifilename As String
        inifilepath = Application.StartupPath
        inifilename = inifilepath & "\inifile.txt"
        'シーケンシャルファイルのオープン
        FileOpen(1, inifilename, OpenMode.Output)
        'シーケンシャルファイルの出力
        Print(1, TextBox1.Text)
        Print(1, vbCrLf)
        Print(1, TextBox2.Text)
        Print(1, vbCrLf)
        Print(1, TextBox3.Text)
        FileClose(1)
        MsgBox("データを保存しました", MsgBoxStyle.Information, "Save")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim inifilepath, inifilename As String
        inifilepath = Application.StartupPath
        inifilename = inifilepath & "inifile.txt"
        If Dir(inifilename) <> "" Then
            'シーケンシャルファイルのオープン
            FileOpen(1, inifilename, OpenMode.Input)
            'シーケンシャルファイルの読み込み
            Input(1, TextBox1.Text)
            Input(1, TextBox2.Text)
            Input(1, TextBox3.Text)
            FileClose(1)
            MsgBox("データを読み込みました", MsgBoxStyle.Information, "Rode")
        Else
            MsgBox("データが見つかりません", MsgBoxStyle.Information, "Error")

        End If
    End Sub
End Class

> プログラミング暦1ヶ月なので、このコードのどこがおかしいのかがわかりません。
> よろしくお願いします。

エラーメッセージが出ていませんか？(エラー内容が教えてくれていますが）

inifilename の値がどのようになっているのかを調べれば解ります。
1文字違っても動作しない世界ですので、十分注意を払って下さい。


>         inifilename = inifilepath & "\inifile.txt"
>         'シーケンシャルファイルのオープン


>         inifilename = inifilepath & "inifile.txt"
>         If Dir(inifilename) <> "" Then

その後、何回か閲覧されているようですが、解決されたのでしょうか？
解決したなら、解決報告するなり、レスに対する返信をするのが礼儀ではないでしょうか？

まだ、問題が未解決なら、その辺を投稿しないとこれを見ている人には伝わりません。

今後も、当サイトに限らず、こういった掲示板を利用されるなら、マナーを守るように
しましょう。

掲示板初心者のマナー講座 （Windows初心者部屋）
http://www.geocities.jp/kagemusyamk1/FAQ/bbs-manner.html

初めにお読み下さい
http://hanatyan.sakura.ne.jp/hazimeni.htm

閲覧はしていましたが、プログラミングに取り掛かれる時間がない為未解決のままです。
ありがとうございました。