Function Elimine$(txt$)
txt = Left(Trim(txt), 28)
txt = Replace(Replace(txt, "/", ""), "\", "")
txt = Replace(Replace(txt, "*", ""), "!", "")
txt = Replace(Replace(txt, ".", ""), "?", "")
txt = Replace(Replace(txt, ";", ""), ":", "")
txt = Replace(Replace(txt, "#", ""), ",", "")
Elimine = Replace(Replace(txt, "[", ""), "]", "")
End Function