Adicionando um Registro com Validação e Pergunta se continua ou não

Boa noite pessoal, a pedido dos meus alunos estou criando um procedimento que valida a caixa de entrada do usuário e pergunta se devo ou não continuar o cadastro. O procedimento envolve etiquetas de nomes para poder se deslocar alternadamente entre os códigos, se você não conhece o sistema com etiquetas, dê uma olhada detalhada no procedimento para que possa compreender melhor.

Sub cadastrar()
Dim total As Variant
'variáveis de preenchimento
Dim codigo As Variant
Dim nome As Variant
Dim endereco As Variant
Dim bairro As Variant
Dim salario As Variant
total = (Cells(Rows.Count, 1).End(xlUp).Row)
codigo = total + 1
vnome:
nome = Trim(UCase(InputBox("Informe o nome do Cliente")))
vendereco:
endereco = Trim(UCase(InputBox("Informe o endereco do Cliente")))
vbairro:
bairro = Trim(UCase(InputBox("Informe o Bairro do Cliente")))
vsalario:
salario = Trim(InputBox("Informe o Salário do Cliente"))
' fazendo a verificação
If nome = "" Then
Do While contador <> 3
   contador = contador + 1
   MsgBox "Por favor entre com o nome do cliente", vbCritical, "Nome do Cliente vazio"
   continuar = MsgBox("Continuar tentando? ", vbYesNo, vbQuestion, "Continuar?")
  
   If continuar = vbYes Then
      GoTo vnome
   Else
      GoTo final
   End If
  
Loop
End If
If endereco = "" Then
Do While contador <> 3
   contador = contador + 1
   MsgBox "Por favor entre com o endereço do cliente", vbCritical, "Endereço do Cliente vazio"
  
   continuar = MsgBox("Continuar tentando? ", vbYesNo + vbQuestion, "Continuar?")
  
   If continuar = vbYes Then
      GoTo vendereco
   Else
      GoTo final
   End If
  
Loop
End If
If bairro = "" Then
Do While contador <> 3
   contador = contador + 1
   MsgBox "Por favor entre com o Bairro do cliente", vbCritical, "Bairro do Cliente vazio"
   continuar = MsgBox("Continuar tentando? ", vbYesNo + vbQuestion, "Continuar?")
   
    If continuar = vbYes Then
       GoTo vbairro
    Else
       GoTo final
    End If
  
Loop
End If
If salario = "" Then
Do While contador <> 3
   contador = contador + 1
   MsgBox "Por favor entre com o Salario do cliente", vbCritical, "Salario do Cliente vazio"
   continuar = MsgBox("Continuar tentando? ", vbYesNo + vbQuestion, "Continuar?")
  
   If continuar = vbYes Then
      GoTo vsalario
    Else
      GoTo final
    End If
Loop
End If
' ------------------------------- Fim da Validação ---------------------------------

'-------------------- Arnazenando na última linha do cadastro ----------------------
Cells(total + 1, 1).Value = codigo
Cells(total + 1, 2).Value = nome
Cells(total + 1, 3).Value = endereco
Cells(total + 1, 4).Value = bairro
Cells(total + 1, 5).Value = salario
final:
MsgBox "Cadastro cancelado pelo usuário", vbInformation, "cancelado"
End Sub