Finde die Länge des Strings heraus:
length = Len(str)
Schneide den ersten Buchstaben ab und verwandle in Großbuchstaben:
first = UCase(Left(str,1))
Setze den Buchstaben mit dem Reststring zusammen:
str = first & Right(str,length-1)
Mfg, MF
nicht angemeldet