Whew...panic gone! Just don't ask!
Thanks so much for your time on this. There is a little bug though. This line:
Field2 = Mid(Field2, 1, FTilde) & TextDate(Mid(Field2, FTilde + 1, STilde - FTilde - 1)) _
& Mid(Field2, STilde, Len(Field2) - STilde)
is giving the error "Run time...