Try converting the 'text' dates into 'real' dates using CDate or DateValue.

For example if TextBox9 contained a date.
ws.Cells(iRow, 6).Value = CDate(Me.TextBox9.Text)