VS 2010 how to convert visual basic 6.0 to visual basic 2010

hy. i have code from visual basic 6.0
i want to change and convert from visual basic 6.0 to visual basic 2010.
i don't understand using command get and put in visual basic.


Private Sub Command3_Click()
Dim data As String
Dim x As Long
Dim y As Long
Dim z As Long
Dim pjg As Long
Dim ext As String
Dim encpjg As String
encpjg = FileLen(Text2.Text)
ext = Mid(StrReverse(Text2.Text), 1, 4)
ext = StrReverse(ext)
pjg = FileLen(Text1.Text)
FileCopy Text2.Text, Text2.Text & "_STEGO" & ext
x = FileLen(Text1.Text) Mod 10000
y = FileLen(Text1.Text) - x
Open Text1.Text For Binary Access Read As #1
Open Text2.Text & "_STEGO" & ext For Binary Access Write As #2
Put #2, FileLen(Text2.Text) + 1, ""
If pjg >= 10000 Then
For z = 1 To y Step 10000
data = Space$(10000)
Get #1, z, data
Put #2, , encrypt(data, Text5.Text)
Next
y = x
data = Space$(y)
Get #1, , data
Put #2, , encrypt(data, Text5.Text)
Put #2, , "|" & encrypt(encpjg, Text5.Text)
Else
data = Space$(pjg)
Get #1, 1, data
Put #2, , encrypt(data, Text5.Text)
Put #2, , "|" & encrypt(encpjg, Text5.Text)
End If
Close #2
Close #1
MsgBox "done!" & vbCrLf & "file stego in " & Text2.Text & "_STEGO" &
ext, vbOKOnly, "stego"
End Sub