$string="this is a string"
? $string
? UCFirst($string)

function UCFirst($str)
  dim $arr,$i
  $arr=split($str," ")
  for $i= 0 to ubound($arr)
    $arr[$i]=ucase(left($arr[$i],1))+lcase(right($arr[$i],-1))
  next
  $UCFirst=join($arr," ")
endfunction