Среднее арифметическое, вводимой с клавиатуры последовательности дробных чисел

Sub Vlad220994()
Dim a$(), sum#, count&
On Error Resume Next
Do
    a = Split(InputBox("Введите число или дробь вида a/b"), "/")
    If a(0) = "" Then
        If count > 0 Then MsgBox "Среднее: " & sum / count & " чисел: " & count, vbInformation
        Exit Sub
    End If
    Select Case UBound(a)
    Case 0
        sum = sum + a(0)
    Case 1
        sum = sum + a(0) / a(1)
    Case Else
        Err.Raise 1
    End Select
    If Err Then
        Err.Clear
        MsgBox "Неверный ввод!", vbExclamation
    Else
        count = count + 1
    End If
Loop
End Sub

Sub Vlad220984()
Static count& 'количество уже введённых слагаемых (до расчёта их среднего)
Dim a$(), sum#
On Error Resume Next
Do
    a = Split(InputBox("Введите число или дробь вида a/b" & vbCr & vbCr & _
        "Введено дробей и прочих (целых) чисел: " & count, _
        "OK: ввод; Cancel: расчёт ср. арифметического", "0/1"), "/")
    If a(0) = "" Then
        If count > 0 Then
            MsgBox "Всего чисел: " & vbTab & count & vbCr & vbCr & _
            "Среднее арифм.: " & vbTab & sum / count, vbInformation
            count = 0
        End If
        Exit Sub
    End If
    Select Case UBound(a)
        Case 0:     sum = sum + a(0)
        Case 1:     If a(1) = 0 Then Err.Raise 1 Else sum = sum + a(0) / a(1)
        Case Else:  Err.Raise 1
    End Select
    
    If Err Then
        Err.Clear
        MsgBox "Упс, ошибка" & IIf(a(1) = 0, ": деление на 0", "!"), vbExclamation
    Else
        count = count + 1
    End If
Loop
End Sub

        Case 1:     sum = sum + a(0) / a(1)
'...
    If Err Then
        MsgBox "Упс, ошибка" & IIf(Err = 11, ": деление на 0", "!"), vbExclamation
        Err.Clear