I need to make sure that there are two slashes only in a textbox value. It usually would start with only 1 slash, so it would be increased to two, but over time it was replacing the doubles with 4, etc. This code in the LostFocus seems to work, but I know it's not the best way. Any ideas? Thanks!

THISFORM.DataDir = STRTRAN(THIS.Value,'\','\\')
THISFORM.DataDir = STRTRAN(THIS.Value,'\\\','\\')