RemoveAllSpace

Function NameFix (who)
whotemp$ = who
For findchar = 1 To Len(whotemp$)
thechar$ = Mid(whotemp$, findchar, 1)
If thechar$ = " " Then
thechar$ = ""
End If
thechars$ = thechars$ & thechar$
Next findchar
who = thechars$
NameFix = LCase(who)
End Function