FirstCharToUpper

<Extension()>
Public Function FirstCharToUpper(str As String) As String
If String.IsNullOrEmpty(str) Then Return str
Dim sb As New StringBuilder(str)
sb.Chars(0) = sb.Chars(0).ToString.ToUpper
Return sb.ToString
End Function