Estou problema, está saindo todo o texto em maiúsculo, quero que fique só a primeira letra em maiúsculo. Como mudo?

ub lsPesquisaCEP(ByVal sCEP As String)
On Error GoTo TratarErro

Range("Consulta!a1:H1").Clear

If sCEP <> "" Then
With ActiveWorkbook.XmlMaps("webservicecep_Mapa")
.ShowImportExportValidationErrors = False
.AdjustColumnWidth = True
.PreserveColumnFilter = False
.PreserveNumberFormatting = False
.AppendOnImport = False
End With
ActiveWorkbook.XmlImport URL:= _
" http://republicavirtual.com.br/web_cep.php?cep=" & sCEP, ImportMap:= _
Nothing, Overwrite:=False, Destination:=Range("Consulta!$a$1")

End If

Calculate

Sair:
Exit Sub
TratarErro:
MsgBox "CEP não cadastrado!"
GoTo Sair
Resume
End Sub

Sub lsAdiciona()
Dim iTotalLinhas As Integer

Worksheets("Banco").Activate
Range("Banco!$A$1").Select

iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(iTotalLinhas, 1).Value = Range("Banco!$u$1").Value + 1
Cells(iTotalLinhas, 2).Value = UCase(Range("Formulario!E4").Value) 'nome
Cells(iTotalLinhas, 3).Value = UCase(Range("Formulario!E6").Value) 'nacionalidade
Cells(iTotalLinhas, 4).Value = UCase(Range("Formulario!E8").Value) ' profissão
Cells(iTotalLinhas, 5).Value = UCase(Range("Formulario!E10").Value) ' estado civel
Cells(iTotalLinhas, 6).Value = UCase(Range("Formulario!E12").Value) ' rg
Cells(iTotalLinhas, 7).Value = UCase(Range("Formulario!E14").Value) ' cpf
Cells(iTotalLinhas, 9).Value = Range("Formulario!E16").Value 'cep
Cells(iTotalLinhas, 10).Value = UCase(Range("Formulario!E18").Value) 'tipo
Cells(iTotalLinhas, 11).Value = UCase(Range("Formulario!G18").Value) 'logradouro
Cells(iTotalLinhas, 12).Value = Range("Formulario!M18").Value 'número
Cells(iTotalLinhas, 13).Value = UCase(Range("Formulario!E20").Value) 'bairro
Cells(iTotalLinhas, 14).Value = UCase(Range("Formulario!E22").Value) 'cidade
Cells(iTotalLinhas, 15).Value = UCase(Range("Formulario!M22").Value) 'uf
Cells(iTotalLinhas, 16).Value = UCase(Range("Formulario!E26").Value) 'telefones

Worksheets("Formulario").Activate

Range("Formulario!E4").Value = "" 'nome
Range("Formulario!E6").Value = "" 'nacionalidade
Range("Formulario!E8").Value = "" ' profissão
Range("Formulario!E10").Value = "" ' estado civel
Range("Formulario!E12").Value = "" ' rg
Range("Formulario!E14").Value = "" ' cpf
Range("Formulario!E16").Value = "" 'cep
Range("Formulario!M18").Value = "" 'número
Range("Formulario!E26").Value = "" 'telefones

End Sub