To find out if there are any empty spaces in a string use this:

Code:
InStr(1, Dir1, " ")
InStr function
InStr([start as number], phrase as String, searchstring as String [, compare as integer])

Instr returns a variant of subtype long specifying the character position of the first occurrence of searchstring in string. The first character position of a string is 1, not 0. InStr returns 0 if string is zero-length, searchstring is not found or start is past any occurrence of searchstring. InStr returns Null if either string or searchstring are Null. InStr returns start if searchstring is zero-length.

start is an optional argument that specifies the character position where searching for substring in string should begin. The default is 1, referring to the first character in string.

This link is a good starting point for working with strings.