Dim numberArray(1 To 100) As Integer
Dim inputBoxString As String
Dim oddNumberCounter As Integer
Dim sumOddNumber As Integer
Dim average As Double
average = 0
sumOddNumber = 0
oddNumberCounter = 0
inputBoxString = inputBox.Text
inputBoxString = Replace(inputBoxString, " ", "")
For i = 1 To Len(inputBoxString)
    numberArray(i) = Val(Mid(inputBoxString, i, 1))
Next i
For i = 1 To Len(inputBoxString)
    If (i \ 2 = i / 2) Then
        oddNumberCounter = oddNumberCounter + 1
        sumOddNumber = sumOddNumber + numberArray(i)
    End If
Next i
average = sumOddNumber / oddNumberCounter
inputBox.Text = Str(average)