Thanks to you guys for the replies.
I found this StrConv ProperCase built-in function code and maybe with some modification it would be nice
Code:
Function StrConvProperCase(sInp)
Dim nPos
Dim nSpc
nPos = 1
Do While InStr(nPos, sInp, " ", 1) <> 0
nSpc = InStr(nPos, sInp, " ", 1)
StrConvProperCase = StrConvProperCase & UCase(Mid(sInp, nPos, 1))
StrConvProperCase = StrConvProperCase & LCase(Mid(sInp, nPos + 1, nSpc - nPos))
nPos = nSpc + 1
Loop
StrConvProperCase = StrConvProperCase & UCase(Mid(sInp, nPos, 1))
StrConvProperCase = StrConvProperCase & LCase(Mid(sInp, nPos + 1))
StrConvProperCase = StrConvProperCase
End Function