Convert VB 6.0 Code to VB .Net

Question

Hello all ,

 

                 I am stuck with the piece of code to convert in to vb .net kindly help me in this regard.I am providing the VB 6.0 code .Please help me in converting.

 #######Code###########

 

Sub FileEncodeAndDecode(InputFile, outputfile)

Dim temp As Single

Dim Char As String * 1

Dim XORMask As Single

Dim temp1 As Integer

' Set fso = CreateObject("Scripting.FileSystemObject")

Open InputFile For Binary As #1

Open outputfile For Binary As #2

Dim a, Z

a = FileLen(InputFile)

For Z = 1 To FileLen(InputFile)

XORMask = Int(Rnd(-10) * 256)

Get 1, , Char

Char = VBA.Chr$((Asc(Char) Xor XORMask))

Put 2, , Char

Next Z

Close #1

Close #2

End Sub

 

#######Code###########

 

 

 Thanks & Regards,

Sampath