Зарплата и рабочие часы

[merick]

С помощью оператора For создайте процедуру с именем РабочиеЧасы, которая позволяет Вводить для пяти дней недели количество часов, отработанных в эти дни. Процедура также должна выводить окно сообщения с суммарным количеством рабочих часов за неделю.
Создайте другую процедуру и назовите ее Зарплата. Процедура должна считать недельную зарплату при условии по часовой оплаты. Предположим, что минимальная оплата рабочего часа составляет 6 у.е. Примените оператор Do…Loop для управления окном ввода, где пользователь должен ввести собственную почасовую ставку. Используйте суммарное количество рабочих часов в неделю, подсчитанное процедурой РабочиеЧасы. Итоговое сообщение выведите на экран с помощью окна сообщения.
Совет: Объявите переменную, содержащую суммарное количество рабочих часов в неделю, как глобальную (Public) переменную.
Проблема в следующем она не считает зарплату за рабочие часы.
Что нужно исправить?
Вот код:

Public vSum As Long
Sub РабочиеЧасы()
Dim vCounter As Long
Dim response As String
Dim vDOW As String
Dim vSum As Long
For vCounter = 1 To 5
    If vCounter = 1 Then
        vDOW = "Понедельник"
    ElseIf vCounter = 2 Then
        vDOW = "Вторник"
    ElseIf vCounter = 3 Then
        vDOW = "Среда"
    ElseIf vCounter = 4 Then
        vDOW = "Четверг"
    ElseIf vCounter = 5 Then
        vDOW = "Пятница"
    End If
    response = InputBox(vDOW)
        If response = "" Then Exit Sub
    vSum = CLng(response) + vSum
Next
MsgBox "За неделю было отработано " & vSum & " час (а, ов)"
End Sub
 
Sub Зарплата()
Dim response As String
Dim vSalary As Long
Do
    response = InputBox("Введите, сколько вам платят за 1 час работы")
    Exit Do
Loop
vSalary = CLng(response) * vSum
MsgBox "Зарплата за неделю составляет " & vSalary & " у.е."
End Sub

[IgorGO]

Sub Зарплата()
  Dim response As String
  Dim vSalary As Long
  response = InputBox("Введите, сколько вам платят за 1 час работы")
  РабочиеЧасы
  vSalary = CLng(response) * vSum
  MsgBox "Зарплата за неделю составляет " & vSalary & " у.е."
End Sub

[merick]

Сообщение от IgorGO

Sub Зарплата()
  Dim response As String
  Dim vSalary As Long
  response = InputBox("Введите, сколько вам платят за 1 час работы")
  РабочиеЧасы
  vSalary = CLng(response) * vSum
  MsgBox "Зарплата за неделю составляет " & vSalary & " у.е."
End Sub

при любых значениях выдает зарплата составляет 0 у.е

[IgorGO]

Public vSum As Long
Sub РабочиеЧасы()
Dim vCounter As Long
Dim response As String
Dim vDOW As String
Dim vSum As Long

vSum - обьявлена 2 раза
1-й раз как глобальная переменная
1-й раз в процедуре РабочиеЧасы, как локальная

удалите строку с вторым обьявление переменной

[merick]

Сообщение от IgorGO

Public vSum As Long
Sub РабочиеЧасы()
Dim vCounter As Long
Dim response As String
Dim vDOW As String
Dim vSum As Long

vSum - обьявлена 2 раза
1-й раз как глобальная переменная
1-й раз в процедуре РабочиеЧасы, как локальная

удалите строку с вторым обьявление переменной

Спасибо вам!