Excel VBA

Please fill in the blanks. Also I am not sure if the blanks I filled in are correct. thank you

Dim Dim Dim Dim Dim SalesPersonName nSales Sales PersonName As String nSales As Integer total Revenue As Integer amtOfSale As Integer i As Integer = InputBox("Enter salesperson name.") = InputBox("Enter the number of sales made by & = 0 To nSales InputBox("Enter the amount sold by " & = total Revenue + amtOfSale Sales PersonName &" during the week.") For amtOfSale = Sales PersonName &' on sale" & i) totalRevenue Next MsgBox Sales PersonName & " sold a total of $ & Format(total Revenue, " & "during the week.", vbinformation