Stort begyndelses bogstav

Jeg har et vba-prog---vedlagt-- der trækker data fra acces til exel.

De data står med store bogstaver, jeg ville gerne have at det kun er begyndelsesbogstavet i hver ord der stort. Kan det lægges ind i prog?
Sub Kunde()
Kundenr = InputBox("indtast kundenr")
If Kundenr = "" Then Exit Sub
   
    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strConnString As String
    Dim strSQL As String
 
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
   
    strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\dokumenter\kartoteker.MDb"
    objConn.Open strConnString
   
    strSQL = "SELECT Kundenr,Navn1, Adresse, postby FROM kundekartotek WHERE Kundenr = " & Kundenr
    objRs.Open strSQL, objConn
       
    If Not objRs.EOF Then
       
        Range("A3") = objRs("Kundenr")
        Range("a4") = objRs("Navn1")
        Range("a5") = objRs("Adresse")
        Range("a6") = objRs("postby")
       


objRs.Close
    objConn.Close
 
Else
    MsgBox "Kundenr. findes ikke"
   

    End


End If
 
End Sub