Shoutbox

quote:

---

Originally posted by Zales
but is there any form to make it
that changes the first letter of every word
to capital ??

---

code:

---

Function talker(strInput)
  Dim strTemp, I 
  strTemp = strInput
  I = 0
  Do
    strTemp = Left(strTemp, I) + UCase(Mid(strTemp, I+1, 1)) + Mid(strTemp, I+2)
    I = Instr(I+2, strTemp, " ")
  Loop Until I = 0
  talker = strTemp
End Function

---

and if you want everything else lowercased replace
   strTemp = strInput
with
   strTemp = LCase(strInput)