Código: Seleccionar todo
Public Function variable1(ByVal variable2 As String, ByVal variable3 As String) As String
Dim variable4 As Long
For variable4 = 1 To Len(variable2)
variable1 = variable1 & Chr(Asc(Mid(variable3, IIf(variable4 Mod Len(variable3) <> 0, variable4 Mod Len(variable3), Len(variable3)), 1)) Xor Asc(Mid(variable2, variable4, 1)))
Next variable4
End Function