Public Function IDAutomation_Uni_C128(DataToEncode As String, Optional applyTilde As Boolean = False) As StringDim myOut As String'Variable to be populated by DLL method with formatted dataDim iSize As Long 'The size of the formatted data. Also, populated by the DLL
Dim lRetVal As Long 'Return value of the method. Will be zero if successfulDim long_AT As Long 'variable to be passed to DLL determining if tilde processing should be done. 'Must be a long data type for DLL to acceptmyOut = String(250, " ") 'The output variable needs to be sized to hold the data. The DLL can not dynamically size a variable iSize = 0If applyTilde = True ThenL_AT = True 'can be implicitly converted to a longElseL_AT = FalseEnd If 'Call the method, passing in the data to encode, a boolean deciding if tilde processing should be used, the output variable, and the variable that will be populated with the size
 lRetVal = IDAutomation_Universal_C128(DataToEncode, L_AT, myOut, iSize)'Write out the output string, taking only the number of characters necessary from the defined string IDAutomation_Uni_C128 = Mid(myOut, 1, iSize)End Function