...'sublvl = InStrRev(MainTable, "Sub-Level")
MailMethod = Mid(Maintable, InStr(1, Maintable, "Mail Method ") + 12)
'Look Below for comments'**********************
'mailmethod2 = InStr(Maintable, "Mail Method ")
'MailMethod = Left(mailmethod2, 4)
'MailMethod = Right(MainTable...