Criar Um Vetor para 3 Produtos e uma Matriz Com Valores de Venda em 3 Semestre Somar as Vendas por Produto e o Total Geral

Sub loja()
Dim matriz(3, 2) As Currency
Dim vetor(3) As String
Dim total(3) As Currency

Dim i As Integer
Dim l As Integer
Dim m As Integer
Dim m2 As Integer
Dim msg As String

For i = 0 To 3
vetor(i) = InputBox("Digite o nome do produto " & i + 1)
For l = 0 To 2
matriz(i, l) = InputBox("Digite o valor " & l + 1)
total(i) = total(i) + matriz(i, l)
Next
Next

For m = 0 To 3
MsgBox ("Produto: ") & vetor(m) & Chr(13) + ("Preço mes Janeiro: ") & matriz(m, 0) & Chr(13) + ("Preço mes Fevereiro: ") & matriz(m, 1) & Chr(13) + ("Preço mes Março: ") & matriz(m, 2) & Chr(13) + ("TOTAL : ") & total(m)

Next
MsgBox ("Total de Tudo: ") & total(0) + total(1) + total(2) + total(3)
MsgBox ("William Rodrigo Da Silva") & Chr(13) + ("Ja era Galera o programa era esse ae, BOA FERIAS PRA GERAL")
End Sub