For i = 1 To Len(sInvalidChars)
            If InStr(sValidate, Mid(sInvalidChars, i, 1)) > 0 _
                  Then bTemp = True
            If bTemp Then Exit For
    Next
        For i = 1 To Len(sValidate)
            If Asc(Mid(sValidate, i, 1)) = 160 _
                   Then bTemp = True
            If bTemp Then Exit For
        Next    

quote:

---

Hmm, don't know why I did all that crap.

replace the whole if then ..else with this

    For i = 1 To Len(sInvalidChars)
            If InStr(sValidate, Mid(sInvalidChars, i, 1)) > 0 _
                  Then bTemp = True
            If bTemp Then Exit For
    Next
        For i = 1 To Len(sValidate)
            If Asc(Mid(sValidate, i, 1)) = 160 _
                   Then bTemp = True
            If bTemp Then Exit For
        Next    

it doesn't need all that.

---

okidoki

Pierre
Join a Snitz Mailinglist