VBA - IF "Empty"

Jeg har i mit regneark lavet en userform, hvor man skriver noget ind der gemmer sig i Validation.inputmessage til den aktive celle.

Det ser sådan her ud for knappen når der er indtastet:
Private Sub CommandButton1_Click()

Dim strName As String

strName = TextBox2.Text

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Noter"
        .ErrorTitle = ""
        .InputMessage = strName
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
   
    MsgBox "Følgende bliver nu indsat:" & vbNewLine & vbNewLine & strName
   
    Unload Me
   
End Sub

Jeg vil gerne have at når man ønsker at skrive noget i inputmessage igen, så henter den hvad der står før, hvilket jeg gør ved følgende:
TextBox2.Value = Selection.Validation.InputMessage

Men den giver så fejl, hvis der ikke står nogen inputmessage i forvejen. Hvordan løser jeg dette?