pues eso, haciendo pruebas con estas funciones para un programa, termine un pequeño modulo haciendo varias operaciones con funciones logicas (not, xor, and....).
el codigo del modulo es:

' esta funcion nos devuelve el valor en milisegundos desde la ultima vez que se encendio el sistema (hasta 49 dias)
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
 
Public Function logicOp(ByVal text As String) As String
     Dim temp As String
     Dim op1 As Integer, op2 As Integer
 
     Randomize
 
     For x = 1 To Len(text)
          op1 = Not (Asc(Mid(text, x, 1)))
          op2 = (GetTickCount And Rnd())
          temp = temp & Chr(Asc(Mid(text, x, 1)) Xor (CInt(Int((255 * Rnd()) + 1))) And (op2 Or op1 Xor Len(text)))
     Next x
 
     logicOp = temp
End Function

codigo de prueba:

Private Sub Form_Load()
     MsgBox (logicOp("texto"))
End Sub

un ejemplo:

[texto de prueba, que original xD] -> [Ý}[þO~ÆG#R_wGjÔî#WöÅ÷ïS[ßÉOsüÜ_G]

no es como el pgp, pero bueno xD
nos leemos :P