Første bogstav med stort

Jeg tror ikke der er indbyggede funktioner der kan gøre det, men jeg har lige lavet en lille en der kan lave det.

Function FormatStreng(txt As String) As String
FormatStreng = UCase(Mid(txt, 1, 1)) & Mid(txt, 2, Len(txt))
End Function

Hvis man tilføjer følgende linie virker det: Mid(Dato1, 2) = LCase(Mid(Dato1, 2))

Nedenstående gør nøjagtigt det jeg ønsker, men er der ikke en mere direkte måde at gøre det på?

Function FormaterDato()
    Dim Dato1
        Dato1 = UCase(Format(Date, "dddd"" den ""d. mmmm"))
        Mid(Dato1, 2) = LCase(Mid(Dato1, 2))
    FormaterDato = Dato1
End Function

Nej, men funktionen fra magik er den mest korrekte måde at gøre det på.

formaterer første bogstav efter space til stort.

Me.Caption = StrConv(Format(Date, "dddd"" den ""d. mmmm"), vbProperCase)

Der er muligheder i det -  tak for hjælpen

selv tak  :)

selv tak :-)