can you explain to me about using syntax put and get in visual basic 2010.

hy. i have the code from visual basic 6.0 i want change and convert from visual basic 6.0 to visual basic 2010. this is my code. i don't understand using syntax get and put in visual basic. can you help me and explain to me about my code. 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