Wipe a byte array securely.
Public Function wipeBytes ( _ ByRef lpToWipe() As Byte _ ) As Byte()
Dim lpData() As Byte lpData = cnvFromHex("DEADBEEF") Debug.Print "BEFORE: 0x(" & cnvToHex(lpData) & ")" ' BEFORE: 0x(DEADBEEF) Call wipeBytes(lpData) Debug.Print "AFTER: 0x(" & cnvToHex(lpData) & ")" ' AFTER: 0x()