static extern int SysFreeString(IntPtr bstr);

Declare Function SysFreeString Lib "oleaut32.dll" (ByRef bstr as String) As Long