Uso inputbox Msgbox goto

Sub saludo()

Dim nombre As String

nombre = InputBox("¿Cómo se llama usted?")

If nombre = "" Then
MsgBox "chao.."
Else
MsgBox "Buenos dias " & nombre
End If

End Sub

-------------------------------------------------------------------------------------------------------

Sub fecha()
otravez:       'aqui viene el goto, despues de la etiqueta va dos puntos
MsgBox "la fecha de hoy es: " & Date
R = MsgBox("¿Desea ver la fecha again?", vbYesNo)
     
        If R = vbNo Then
     
        Exit Sub
     
        Else
     
        GoTo otravez
     
        End If
     
End Sub
------------------------------------------------------------------------------------
Sub persona()

Inicio:
edad = InputBox("¿Cuántos años tiene usted?")
If edad = "" Then
    R = MsgBox("¿No quiere decirme su edad kk?", vbYesNo)
 
    If R = vbNo Then
    Exit Sub
    Else
    GoTo Inicio
    End If
End If

 
            If Val(edad) >= 18 Then
            MsgBox "usted es viejo"
            Else
            MsgBox "usted es un niño"
            End If
         
End Sub