Dim s As String = "benni" Dim newS As String = Char.ToUpper(s(0)) & s.Substring(1) Console.WriteLine(newS)