Public Sub DateValue()

     Dim strDate As String
          strDate = InputBox("Tape a Date", "Date", Date)

     If strDate <> "" Then
          If IsDate(strDate) Then
               Range("B2").Value = strDate
          Else
               MsgBox "Please re-enter your date!", vbExclamation, "Wrong Format"
          End If
     End If

          Range("Koment").Value = strDate

End Sub