Visual Basic.NET - Ayuda para Abrir el ejecutable en modo lectura

Buenas... por favor quisieran que me ayuden con este codigo anteriormente en VB v6 daba este codigo para abrir un fichero en modo lectura Open text1 For Binary As #1 pero en el VB2005 sale error... bueno soy principiante en VB2005 por siaca dejo todo el codigo en la v6 del VB:

Private Sub Command1_Click()
Dim valor As Byte, valor1 As Byte, valor2 As Byte, valor3 As Byte, valor4 As Byte, valor5 As Byte, valor6 As Byte
Dim m As String
Dim t As Long
Dim a As String
valor1 = &HEB
valor2 = &H90
valor3 = &HE9
valor4 = &HA0
valor5 = &H1
valor6 = &H0

m = text1.Text
t = 2195583 'tamaño del archivo
a = Right(m, 9)
If a <> "KAVPF.exe" Then
MsgBox "Ud. eligio un archivo diferente seleccione de nuevo por favor", vbCritical, "Seleccione de nuevo el archivo"
Else
If FileLen(text1) <> t Then
MsgBox ("No es la version correcta")
Else
Open text1 For Binary As #1 'Abrimos el Ficchero en modo lectura
Seek (1), &H4645B
Get #1, &H4645B, valor
If valor = &HEB Then
MsgBox "El Archivo ya fue Modificado", 0 + 48, "Error!!!"
Else
Close
FileCopy text1, text1 & ".BAKUP"
Open m For Binary Access Write As #1
Put #1, &H4645B, valor1
Open m For Binary Access Write As #2
Put #2, &H4A7EE, valor1
Open m For Binary Access Write As #3
Put #3, &H4AA35, valor2
Open m For Binary Access Write As #4
Put #4, &H4AA36, valor2
Open m For Binary Access Write As #5
Put #5, &H4AA37, valor2
Open m For Binary Access Write As #6
Put #6, &H4AA38, valor2
Open m For Binary Access Write As #7
Put #7, &H4AA39, valor2
Open m For Binary Access Write As #8
Put #8, &H4AA3A, valor2
Open m For Binary Access Write As #9
Put #9, &H4AA3F, valor2
Open m For Binary Access Write As #10
Put #10, &H4AA40, valor2
Open m For Binary Access Write As #11
Put #11, &H4AA48, valor2
Open m For Binary Access Write As #12
Put #12, &H4AA49, valor2
Open m For Binary Access Write As #13
Put #13, &H4AA4A, valor3
Open m For Binary Access Write As #14
Put #14, &H4AA4B, valor4
Open m For Binary Access Write As #15
Put #15, &H4AA4C, valor5
Open m For Binary Access Write As #16
Put #16, &H4AA4D, valor6
Open m For Binary Access Write As #17
Put #17, &H4AA4F, valor2
Open m For Binary Access Write As #18
Put #18, &H54704, valor1

MsgBox "Su archivo ha sido modificado satisfactoriamente, se ha creado un bakup del archivo por si el patch a fallado", vbInformation, "Modificacion con exito"
End If
End If
End If
Close

End Sub