Procedimento vendas mensal em vba

Option Explicit
Option Base 1

Sub vendas()

Dim meses(12) As String
Dim vendas(12) As Single
Dim tVendasMes As Single
Dim vendasMaior As Single, vendasMenor As Single
Dim mesMaior As String, mesMenor As String
Dim i As Integer
Dim media As Single

meses(1) = "Janeiro" meses(2) = "Fevereiro" meses(3) = "Março" meses(4) = "Abril" meses(5) = "Maio" meses(6) = "Junho" meses(7) = "Julho" meses(8) = "Agosto" meses(9) = "Setembro" meses(10) = "Outubro" meses(11) = "Novembro" meses(12) = "Dezembro"

vendasMaior = 0 vendasMenor = 0 i = 1 media = 0

Do Until i > 12 tVendasMes = InputBox("Qual o total das vendas no mês de " & UCase(meses(i)) & "?") vendas(i) = tVendasMes If i = 1 Then vendasMenor = vendas(i) vendasMaior = vendas(i) mesMenor = meses(i) Else If vendasMaior < vendas(i) Then vendasMaior = vendas(i) mesMaior = meses(i) Else If vendasMenor > vendas(i) Then vendasMenor = vendas(i) mesMenor = meses(i) End If End If End If media = media + vendas(i) i = i + 1
Loop

MsgBox "==============VENDAS MENSAL================" & Chr(13) & _ "" & Chr(13) & _ UCase(meses(1)) & ": R$ " & Format(vendas(1), "#,##0.00") & Chr(13) & _ UCase(meses(2)) & ": R$ " & Format(vendas(2), "#,##0.00") & Chr(13) & _ UCase(meses(3)) & ": R$ " & Format(vendas(3), "#,##0.00") & Chr(13) & _ UCase(meses(4)) & ": R$ " & Format(vendas(4), "#,##0.00") & Chr(13) & _ UCase(meses(5)) & ": R$ " & Format(vendas(5), "#,##0.00") & Chr(13) & _ UCase(meses(6)) & ": R$ " & Format(vendas(6), "#,##0.00") & Chr(13) & _ UCase(meses(7)) & ": R$ " & Format(vendas(7), "#,##0.00") & Chr(13) & _ UCase(meses(8)) & ": R$ " & Format(vendas(8), "#,##0.00") & Chr(13) & _ UCase(meses(9)) & ": R$ " & Format(vendas(9), "#,##0.00") & Chr(13) & _ UCase(meses(10)) & ": R$ " &