If you only need the backslash used in the Dir function you can just concatenate it:

If Dir$("\" & Text1.Text) <> "" Then ... etc etc