Hoofdletter, kleine letter in userform txtbox

[CygneVoler]

Ik kom niet uit het volgende 'probleem' en ben opzoek naar hulp.
Ik gebruik een userform met diverse invoervelden. Een daarvan is 'de omschrijving van een artikel' : T3.
Hierin wil ik dat de invoer met een hoofdletter begint en het vervolg met een kleine letter.
Hiervoor heb ik het netwerk al geraadpleegd en zie diverse oplossingen langskomen.

De volgende code die ik gevonden heb en gebruik werkt deels:

Private Sub T3_Change()
If Opt2 Then
cmbWijzigen.Visible = True
End If
T3.Value = UCase(Left(T3, 1)) & StrConv(Right(T3, Len(T3) - 1), vbLowerCase)
End Sub

Deels wil zeggen: wanneer ik de userform aanroep en in veld T3 tekst invoer krijg ik een hoofdletter en het vervolg zijn kleine letters.
Wanneer ik alleen de tekst weghaal (backspace) dan krijg ik een foutmelding:
"Fout 5 tijdens uitvoering.
Ongeldige procedure-aanroep of ongeldig argument."

Kan/wil iemand me vertellen wat ik hier niet goed gedaan hebt?

 

[edmoor]

Probeer dit eens:

T3.Text = UCase(Left(T3.Text, 1)) & LCase(Mid(T3.Text, 2))

 

[lam201]

Of deze:

 T3.text = WorksheetFunction.Proper(T3.text)

 

[edmoor]

Kan, maar dan begint ieder woord met een hoofdletter.

 

[snb]

Sub M_snb()
   MsgBox StrConv("snb", 3)
End Sub

 

[edmoor]

Zelfde resultaat. Ieder woord begint dan met een hoofdletter.
Als TS dat wil is dat prima uiteraard

 

[lam201]

deze dan

 T3.text  = UCase(Left(xx, 1)) & LCase(Right(T3.text , Len(T3.text ) - 1))

 

[edmoor]

Dan zal je fout 5 weer krijgen bij het gebruik van de Backspace toets of al eerder.

 

[CygneVoler]

@edmoor die van jouw werkt zoals ik het idd bedoel.

 

[CygneVoler]

moest dus .text gebruiken ipv .value

 

[edmoor]

.Value mag ook. Dat is niet de oorzaak van het probleem
Die fout 5 wordt veroorzaakt door die -1 in de code.
Lengte 1 -1 gaat daar mis.

 

[snb]

Gebruik een combobox ipv een textbox.

 

[CygneVoler]

Beetje late reactie @edmoor en @snb. En dan moet ik de knop snel reageren nog indrukken haha. Maar bedankt voor jullie bijdrage. Allemaal overigens.