Символьные и строковые переменные: найти слова, в которых больше букв, чем цифр - VB

Dim txt As String, arr, chr, numCount, chrCount, max, answer As String
max = 0
answer = ""
txt = InputBox("text")
arr = Split(txt, " ")
For i = 0 To UBound(arr)
    numCount = 0
    chrCount = 0
    For j = 1 To Len(arr(i))
        chr = Mid(arr(i), j, 1)
        If IsNumeric(chr) Then
            numCount = numCount + 1
        Else
            chrCount = chrCount + 1
        End If
    Next j
    If chrCount > max Then max = chrCount
    If chrCount > numCount Then answer = answer & arr(i) & " "
Next i
answer = answer & vbCrLf & "Max : "
For i = 0 To UBound(arr)
    chrCount = 0
    For j = 1 To Len(arr(i))
        chr = Mid(arr(i), j, 1)
        If Not IsNumeric(chr) Then
            chrCount = chrCount + 1
        End If
    Next j
    If chrCount = max Then
        answer = answer & arr(i) & " "
    End If
Next i
MsgBox answer