TempVars.Add "chaddr2", Mid(working, 31, 30)
TempVars.Add "chaddr3", Mid(working, 61, 30)
TempVars.Add "chaddr4", Mid(working, 91, 30)
TempVars.Add "inaddr1", Mid(rs_datain!InputText, 17, 30) '06
TempVars.Add "inaddr2", Mid(rs_datain!InputText, 47, 30) '07...