' primero localiza la api Copymemory con el visor de APIs e introdúcela en tu código...
Public Function Rot47(ByVal Texto As String) As String
Dim n() As Integer, max As Long, k As Long, t As Integer
If Texto <> "" Then
max = Len(Texto)
ReDim n(0 To max - 1)
Call CopyMemory(ByVal VarPtr(n(0)), ByVal StrPtr(Texto), max * 2) ' convertimos el texto en una matriz de enteros para trabajar más rápido con números
For k = 0 To max - 1
t = n(k)
If t > 32 And t < 127 Then ' signo de amiración hasta la tilde
If t < 80 Then
n(k) = t + 47
Else
n(k) = t - 47
End If
End If
Next
Call CopyMemory(ByVal StrPtr(Texto), ByVal VarPtr(n(0)), max * 2) ' pasamos la matriz de enteros a cadena...
Erase n
End If
Rot47 = Texto
End Function