hay algun algoritmo o programa que codifique el codigo interior de algun programa.busque y no encontre

Private Sub mnuEncryptFiles_Click()

''On Error GoTo error:
Open Text7.Text For Binary As #1 ''Abre el textbox que indica la ruta
j = Space(LOF(1))
Get #1, , j
Close #1
Text$ = j
Text1.Text = Text$ 'Muestra el codigo interior
EncryptHex Text$, 2 'Lo cifra
Open Text7.Text For Binary Access Write As #2
Put #2, , Text2.Text 'Pone el resultado cifrado
Close #1 '
''error:
''MsgBox "Error", vbCritical, "Error:"
End Sub

Private Sub mnudesenfile_Click() ''Lo mismo que cifrado pero descifrado
Open Text7.Text For Binary Access Read As #3
j = Space(LOF(3))
Get #3, , j
Close #1
Text$ = j
Text2.Text = Text$
DecryptHex Text$, 2
Open Text7.Text For Binary Access Write As #4
Put #4, , Text3.Text
Close #1
End Sub

Sub EncryptHex(Text$, TextXor As Integer)
Dim I As Integer
Dim cifrado As String
Dim Codigo As String
For I = 1 To Len(Text$)
cifrado = Hex(Asc(Mid(Text, I, 1)) Xor TextXor)
Codigo = Codigo & cifrado
Next
Text$ = Codigo
Form1.Text2.Text = Text$
End Sub


Sub DecryptHex(Text$, TextXor As Integer)
Dim I As Integer
Dim descifrado As String
Dim Codigo As String
For I = 1 To Len(Text) Step 2
descifrado = Chr(Val("&h" & Mid(Text, I, 2)) Xor TextXor)
Codigo = Codigo & descifrado
Next
Text$ = Codigo
Form1.Text3.Text = Text$
End Sub