подсчет букв в загруженном файле

Private Sub CommandButton2_Click()
 
Dim TextLine
Open x For Input As #1 
Do While Not EOF(1) 
i = i + 1
Line Input #1, TextLine 
ThisWorkbook.Worksheets("Ëèñò1").Cells(i, 1).Value = TextLine
Loop
Close #1
 
v1 = Sheets("Ëèñò1").Cells(Rows.Count, 1).End(xlUp).Row
i = 0
 
If TextBox1.Text = Empty Then
    MsgBox "Файл не выбран!"
Else
    
Dim arrBuk(33), arrBukvi(33), perebor(32)
 
Label1.Caption = "Всего букв в тексте:"
 
perebor(0) = "а"
perebor(1) = "б"
perebor(2) = "в"
perebor(3) = "г"
perebor(4) = "д"
perebor(5) = "е"
perebor(6) = "ё"
perebor(7) = "ж"
perebor(8) = "з"
perebor(9) = "и"
perebor(10) = "й"
perebor(11) = "к"
perebor(12) = "л"
perebor(13) = "м"
perebor(14) = "н"
perebor(15) = "о"
perebor(16) = "п"
perebor(17) = "р"
perebor(18) = "с"
perebor(19) = "т"
perebor(20) = "у"
perebor(21) = "ф"
perebor(22) = "х"
perebor(23) = "ц"
perebor(24) = "ч"
perebor(25) = "ш"
perebor(26) = "щ"
perebor(27) = "ы"
perebor(28) = "ъ"
perebor(29) = "ь"
perebor(30) = "э"
perebor(31) = "ю"
perebor(32) = "я"
 
For por = 0 To 32
    For v = 1 To v1
        arrBuk(por) = Len(Cells(v, 1)) - Len(Replace(Cells(v, 1), perebor(por), ""))
        arrBukvi(por) = arrBukvi(por) + arrBuk(por)
        vcegobukv = vcegobukv + arrBuk(por)
    Next v
Next por
 
Label2 = vcegobukv
End If
End Sub

Private Sub CommandButton2_Click()
    Dim TextLine, i%, j%
    If TextBox1.Text = Empty Then
        MsgBox "Файл не выбран!"
        Exit Sub
    End If
    Open x For Input As #1
    Do While Not EOF(1)
        i = i + 1
        Line Input #1, TextLine
        For j = 1 To Len(TextLine)
            Select Case UCase(Mid$(TextLine, j, 1))
                Case "A" To "Z", "А" To "Я", "Ё"
                    vcegobukv = vcegobukv + 1
            End Select
        Next j
    Loop
    Close #1
    Label1.Caption = "Всего букв в тексте:"
    Label2 = vcegobukv
End Sub

Function CharCount(Text As String)
    Dim RegExp As Object
    Set RegExp = CreateObject("VBScript.Regexp")
    With RegExp
        .IgnoreCase = True
        .Global = True
        .MultiLine = True
        .Pattern = "[A-ZА-ЯЁ]"
        CharCount = Len(Text) - Len(.Replace(Text, ""))
    End With
End Function