My Decelerations are as follows one for input and one for output:

Code:
Dim BookInDate As Date
Dim BookInDate2(0) As Date
This is the code I am using to write to a file (BookInDates is coming from a Text Box)

I also get a error from this part saying "bad file name or number"

Code:
    Open (App.Path & "\BookInDates\" & txtDate.Text) For Output As #1
        Write #1, BookInDate
    Close #1
The date is currently formatted like so on form load, this makes a range of dates in a ListBox. Now this relates to the Text box in the last bit of code as the text box will allways hold the text of the ListBox's listindex.

Code:
DateFormat = "dddd, dd mmmm yyyy"

x = 100
i = 1
lstCustomers.ListIndex = 0

For d = Date To Date + x
  lstDates.AddItem Format$(d, DateFormat)
Next
Please can some one help ?!!?!!! TY!