Sales Commission Program - Output Values?

I wrote this code and everything works as planned:
Module SalesCommissionProgram
Sub Main()
Dim name As String = 0
Dim code As String = 0
Dim monthlySales, commissionDollars As Double
' Prompt user to input value for name
[Code] .....

For the finished project I am supposed to have it output the total sales and commissions for that were calculated before the sentinel value (Eugene) was entered. Here is what I tried and here is where I am lost.
Module SalesCommissionProgram
Sub Main()
Dim name As String = 0
Dim code As String = 0
Dim monthlySales, commissionDollars As Double
[Code] .....