Yes it is.
The line you're referring to (I believe) is
Sub SetProp(o As Object, strProp As String, dbType As DataTypeEnum, oValue As Variant)
What I believe happens is that in the MakeContacts() sub, the line
SetProp td.Fields(fm.Field), "WSSFieldID", dbText, fm.prop
passes in dbText...