I found my other issue it was the
function InArray(strArray,strValue)
if strArray <> "" and strArray <> 0 then
if (instr("," & strArray & "," ,"," & strValue & ",") > 0) then
InArray = True
exit function
end if
end if
InArray = False
end function
needed to be
function InArray(strArray,strValue)
if strArray <> "" and strValue <> 0 then
if (instr("," & strArray & "," ,"," & strValue & ",") > 0) then
InArray = True
exit function
end if
end if
InArray = False
end function
I bet other know about this and the fix is comming! 
looking good now for NT mode. still testing!