Sub Eingabe()
 Dim x As String
 x = InputBox("Hallo User, bitte um eine Eingabe")
   If x = "" Then
      Exit Sub
   Else
      MsgBox "Du hast was eingegeben"
   End If
End Sub