alguien puede ayudarme con este code quisiera que si alguien puede explicarme como modificar este code para poder cifrar otro code hecho en visual basic ya que este solo me cifra texto

Function cifrar(t)
On Error Resume Next
For i = 1 To Len(t)
cifrar = cifrar & Chr(Asc(Mid(t, i, 1)) Xor 7)
Next
End Function
msgbox (cifrar("nitrox"))

gracias! ??? ??? ???