几年前编的一个VB6程序，在win7下运行有问题，于是，想将代码搬到vb2010，因VB2010的参考书很少了，发现与vb6差别大了去了，
我要从txt文件中读数据直接给变量赋值。
vb代码如下：
Open App.Path & "\mytime.txt" For Input As #1   '从文件中读取上次时间、串口设置值
   Input #1, Ansmm, Alrmm, Comno
   Close #1
   Text1.Text = Ansmm
   Text2.Text = Alrmm
   Text3.Text = Comno
要在VB2010中不知怎么写，想使用 OpenFileDialog 和SaveFileDialog控件做
求教

帮不上

Dim OP As String
        OP = System.Environment.CurrentDirectory & "\mytime.txt"
        Dim sr As IO.StreamReader = New IO.StreamReader(OP, System.Text.Encoding.Default)
        TextBox1.Text = sr.ReadLine
        TextBox2.Text = sr.ReadLine
        TextBox3.Text = sr.ReadLine
        sr.Close()