[RESOLVED] First Letter Capital, Leave the rest

[shragel]

What code do i use to make the first letter capital but leave the rest of the letters alone (So i cant use StrConv because that converts all the other letters to lowercase).



thIs shouLd BecomE


ThIs ShouLd BecomE

[lintz]

This should work...

Dim sString As String
Dim i As Integer
Dim sInfo() As String
 
'split your words by space
sInfo = Split("thIs shouLd BecomE", " ")
 
    For i = 0 To UBound(sInfo)
       
        'check if it's already a capital
        If Asc(Left$(sInfo(i), 1)) < 65 Or Asc(Left$(sInfo(i), 1)) > 90 Then
        
        sInfo(i) = Chr(Asc(Left$(sInfo(i), 1)) - 32) & Right$(sInfo(i), Len(sInfo(i)) - 1)
               
        End If
        
    sString = sString & sInfo(i) & " "
    
    Next
 
MsgBox sString

[zeezee]

here is another one

Option Explicit

Private Sub Command1_Click()
    MsgBox makeFirstUCase("thIs shouLd BecomE")
End Sub


Private Function makeFirstUCase(myStr As String) As String
    Dim strArr() As String
    Dim i As Integer
    
    strArr = Split(myStr, " ")
    For i = 0 To UBound(strArr)
        If strArr(i) <> vbNullString Then
            strArr(i) = UCase(Left$(strArr(i), 1)) & Right$(strArr(i), Len(strArr(i)) - 1)
        End If
        makeFirstUCase = makeFirstUCase & strArr(i) & " "
    Next
    
    
    
End Function

[Hack]

How about simply using vbProperCase?

[shragel]

Thanks ZeeZee, Lintz.

Hack
Just read again the question.