Wipe a string securely and return an empty string.
Public Function wipeString ( _ ByRef szToWipe As String _ ) As String
szToWipe = wipeString(szToWipe)
Dim strData As String strData = "my deepest secrets" strData = wipeString(strData)