Chcę dodać x liczbę dni do długiej daty z wyskakującym okienkiem.

Public Function AskForDeadlinePlus4() As String
    Dim strUserResponse As String

    strUserResponse = InputBox("Enter Validuntil Date: Add # of Days To Survey end date")
    strUserResponse = FormatDateTime(strUserResponse + I2, vbLongDate)
    ActiveSheet.Cells(2, 10).Value = strUserResponse 'the 2, 10 is the cell reference for J2 - row 2, column 10.

End Function

Gdzie data zakończenia ankiety w komórce I2.

Kiedy uruchamiam to, otrzymuję (Googling jak to zrobić, męczę się)

4 + I2 (gdzieI2 = Friday, April 05, 2013) >> Wednesday, January 03, 1900

oczywiście potrzebujęTuesday, April 09, 2013

Dzięki