City with cars and people walking

Upload
'******
'**		Formats a string to include standard sets.
'**
'**		Example:	Format("1234567890", "(###) ###-####")
'**			Result =	(123) 456-7890
'**		Modified 01/09/03 to allow extended format mask that will
'**			not return extra ###'s brian reeves
'******
Public Function Format(sValue, sMask)
	Dim iPlaceHolder
	Dim sTempValue
	Dim sResult
	
	sTempValue = CStr(sValue)
	sResult = sMask
	Do Until InStr(sResult, "#") = 0
		iPlaceHolder = InStr(sResult, "#")
		sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1)
		sTempValue = Mid(sTempValue, 2)
		If Len(sTempValue) = 0 Then sResult = Left(sResult, iPlaceHolder)
	Loop
	Format = sResult
End Function