Function FirstCityLetters(Cell As Range) As String
    Dim strRes As String, i As Byte
    For i = 1 To Len(Cell)
        If Asc(Mid(Cell, i, 1)) > 64 And Asc(Mid(Cell, i, 1)) < 90 Then
            strRes = strRes & Mid(Cell, i, 1)
        End If
    Next i
    FirstCityLetters = strRes
End Function
'
Sub StrUpperCase()
    Dim Cell As Range, strRes As String, i As Byte
    Set Cell = ActiveCell
    For i = 1 To Len(Cell)
        If Asc(Mid(Cell, i, 1)) > 64 And Asc(Mid(Cell, i, 1)) < 90 Then
            strRes = strRes & Mid(Cell, i, 1)
        End If
    Next i
    Debug.Print strRes
End Sub