请教老师:二进制文件打开错误?

这是我从书本上得到的VB程序,为什么在运行时候会出现错误?如何解决,恳请帮助!

Imports System
Imports System.Text
Imports System.IO
Public Class Form1
  Private X As Byte '字节
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) '解密
  Dim FName As String '文件
Open FName For Binary As #1] '以二进制访问模式打开待加密文件
  '未声明Open,Micro.VisualBasic命名空间有文件I / O功能
  '方法参数必须在括号内
  For i = 1 To LOF(1) 'LOF函数是求文件长度的内部函数
  Get #1, i, x '取出第i个字节
  '不支持Get, 命名空间有文件I / O功能
  Dim y As Integer
  y = StrConv(X, vbUnicode)
  '这里调用了一个函数,要求将字节转化为是十进制数字,
  'StrConv(x, vbFromUnicode),,,未声明vbFromUnicode
  '未声明vbUnicode
  input #1, i,x  
  '将这个字节写回到文件原位置
  '未声明Put,Micro.VisualBasic命名空间有文件I / O功能
  Next i
  Close #1 '方法参数必须在括号内  
  End Sub


'这里调用了一个自定义函数

你这是vb.net 代码，vb6肯定错误的。