问一个菜鸟级VB问题

dim s as string s=app.apth if right(s,1)"\" then s=s & "\"; s=s & "a2.txt" Open s For Input As #1 Do While Not EOF(1) Line Input #1, lstr Text1.Text = Text1.Text & lstr & vbCrLf Loop Close #1