Jeg får fejl under afvikling af 2 næsten ens inputboxe

Sub test2()

Dim iår1 As Integer
Dim sNavn As String

Range("B4").Select
Dim Message1, Title1
Message1 = "Indtast første!"
Title1 = "Første?"
   
If ActiveCell.Value = "" Then
iår1 = Application.InputBox(Message1, Title1, , , , , , 1)
   
    'Hvis annuller eller kryds
    If iår1 = False Then
    MsgBox "Proceduren blev annulleret!"
    Exit Sub
    Else
    End If
    With ActiveCell
            .Value = iår1
    End With
             
Range("B6").Select
Dim Message2, Title2
Message2 = "Indtast personens navn?"
Title2 = "Personens navn"
   
If ActiveCell.Value = "" Then 'melder fejl her
sNavn = Application.InputBox(Message2, Title2, , , , , , 2)
   
    'Hvis annuller eller kryds
    If sNavn = False Then 'ny
    MsgBox "Proceduren blev annulleret!"
    Exit Sub
    Else
    End If
    With ActiveCell
        .Value = sNavn
    End With

End If
End If
End Sub

slet
Dim sNavn As String
eller ændre til
Dim sNavn As Variant

Tak for det - den virker. Jeg vil acceptere et svar.

Fortsat god weekend.

tak i lige måde