Forudfylt indputbox

jeg har følgende kode, hvor jeg gerne vil have datoen som står i A1 sat automatisk ind i Inputbox-en, er det muligt?

Dim Tekst1 As String, n As Variant
    On Error Resume Next
    n = DateValue(InputBox("Indtast  Dato for NÆSTE kørsen"))
    If n = "" Then
    Tekst1 = "Du klikkede annuler, tastede ingenting eller tekst"
    MsgBox Tekst1
    MinSheet.Select
    Exit Sub
    Else
    End If
    ActiveCell.Offset(0, -3).Range("A1") = n