Function fDataTypeString( intDataType ) As String
    Dim strDataTypes( 35 ) As String
    Dim strBuildDataType As String

    fDataTypeString = ""

    ' &h0 to &hE
    strDataTypes( 0 ) = "EMPTY"
    strDataTypes( 1 ) = "NULL"
    strDataTypes( 2 ) = "Integer"
    strDataTypes( 3 ) = "Long"
    strDataTypes( 4 ) = "Single"
    strDataTypes( 5 ) = "Double"
    strDataTypes( 6 ) = "Currency"
    strDataTypes( 7 ) = "Date/Time"
    strDataTypes( 8 ) = "String"
    strDataTypes( 9 ) = "Dispatch (OLE object or NOTHING)"
    strDataTypes( 10 ) = "OLE error"
    strDataTypes( 11 ) = "Boolean"
    strDataTypes( 12 ) = "Variant list or array"
    strDataTypes( 13 ) = "IUNKNOWN (OLE value)"
    strDataTypes( 14 ) = "Decimal (12 byte fixed point number)"

    ' &h10
    strDataTypes( 17 ) = "Byte"

    ' &h20 to &h23
    strDataTypes( 32 ) = " LotusScript client adt handle"
    strDataTypes( 33 ) = "LotusScript TYPE instance"
    strDataTypes( 34 ) = "User-defined object"
    strDataTypes( 35 ) = "Product object"

    If intDataType > V_BYREF Then strBuildDataType = " + By Reference" : intDataType = intDataType - V_BYREF
    If intDataType > V_ARRAY Then strBuildDataType = " + Array" + strBuildDataType : intDataType = intDataType - V_ARRAY
    If intDataType > V_LIST Then strBuildDataType = " + List" + strBuildDataType : intDataType = intDataType - V_LIST
    If intDataType > V_DYNAMIC Then strBuildDataType = " + Dynamic" + strBuildDataType : intDataType = intDataType - V_DYNAMIC
    strBuildDataType = strDataTypes( intDataType ) + strBuildDataType

    fDataTypeString = strBuildDataType

End Function