Beth,

You wnat to do something like this:

lcFieldnm = 'ctmpname.' + FIELD(lnColloop, 'ctmpname')
lcType = VARTYPE(&lcFieldnm)

Store the tablename.field into the variable, then use macrosubstitution in a VARTYPE() function call.