How to capitalize first letter of a string in VBScript

Question

I read a really helpful post here How do I make the first letter of a string uppercase in JavaScript? and I was curious of a good solution using VBScript.

Answer 1

>> s = "first word of string"
>> WScript.Echo UCase(Left(s, 1)) &  Mid(s, 2)
>>
First word of string

Answer 2

str = "mY nAME iS sACHIN"

arrStr = split(str," ")

For i=0 to ubound(arrStr)

 word = lcase(trim(arrStr(i)))
 word = replace(word,mid(word,1,1),chr(asc(mid(word,1,1))-32),1,1)
 str1 = str1 & word & " "
next

msgbox trim(str1)

Output: My Name Is Sachin