vb 2010读写文件的代码？

Dim name As String = ""
        Dim age As Integer
        name = InputBox("请输入姓名")
        age = InputBox("请输入年龄")

        FileOpen(1, "d:\信息.txt", OpenMode.Append)
        WriteLine(1, name, age)
        FileClose(1)



 FileOpen(1, "d:\信息.txt", OpenMode.Input)
        Dim h As String
        Dim j As String
        Dim f As String
        f = ""
        h = ""
        j = ""
        While EOF(1) = False
            f = LineInput(1) & vbCrLf & f
        End While
        FileClose(1)
        MsgBox("姓名" & "  " & "年龄" & vbCrLf & f)