Cambiar la primera letra de una palabra a mayúscula

Dim mes As String = es.DateTimeFormat.GetMonthName(1)
 mes = Char.ToUpper(mes(0)) & mes.Substring(1)

www1
www2