Break On
 
fnProper("hello chris")
 

Function fnProper($String)
   If Not VarType($String) = 8 Exit 1 EndIf
   $String = Split($String)
   Dim $Array[Ubound($String)], $Index
   For Each $String in $String
      $Array[$Index] = Ucase(Left($String,1)) + Right($String,Len($String)-1)
      $Index = $Index + 1
   Next
   $fnProper = Join($Array)
EndFunction