Hallo Sunnybat,
Dat is met de vorige code (Haije zal het misschien niet graag horen) het enige wat je kan verwachten.
Met deze maak je meer kans op succes:
Private Sub TextBox10_Change()
With TextBox10
t = UCase(.Value)
If Len(t) > 10 Then
t = Left(t, 10) & LCase(Mid(t, 11))
End If
.Value = t
End With
End Sub
Je mag dan eender welke mix van hoofd- en/of kleine letters intikken.
Mvg,
Molly