Shoutbox

code:

---

Function talker(strInput)
   If strInput <> "" Then
     talker = UCase(Left(strinput, 1)) & Mid(strinput, 2)
   Else: talker = ""
   End If
End Function

---

That will work, you should check if the input is Null, if it is then set it to a Null String