Jag har en textruta för inmatning av text. Första bokstav ska vara en versal.
Om denna bokstav inte är en versal, hur skriver jag då?
Meningen ska skrivas ut rättad i en textbox och felet ska skrivas ut i en annan textbox.
Kodförslag som inte fungerar:

If (strIn) >="a" And (strIn) <="z" Then (o.s.v)
int_Bokstav = int_Bokstav+1 (räknar felet om det är en gemen)
strUt = UCase (strUt)
Else
strUt = strIn
End If

testa med LCase, Ucase
håller på att testa kommer med resultat snart....

Kanske kan denna kod användbar?

If Len(strIn) > 0 Then
If Mid(strIn, 1, 1) <> Mid(UCase(strIn), 1, 1) Then 'Testar om första är gemen eller versal. Vid fel sätts strUt
If Len(strIn) > 1 Then
strUt = Mid(UCase(strIn), 1, 1) & Right(strIn, Len(strIn) - 1)
Else
strUt = Mid(UCase(strIn), 1, 1)
End If
End If
End If

\Leif

Tack för att du vill hjälpa!
Svar nummer två fungerar.
Mvh Gertrud

Tack ska du ha ! Det fungerar fint.
Mvh Gertrud