Привет всем!
У меня такой вопрос - Для ввода данных создал UserForm, с несколькимы TextBox-амы. Для ввода даты в ячейку создал прцедуру -

Private Sub TextBox2_Change()
Dim strText As String
Dim txtDat As Variant
ren = Sheets("S1").Cells(65536, 1).End(xlUp).Row
strText = DateValue(Me.TextBox2.Text)
'txtDat = strText
txtDat = DateValue(strText)
Me.Cells(ren, 1) = txtDat
End Sub

но при вводе сразу выдаётся сообшеные - Run-time error 13, Type Mismatch,
тип ячейки Date, попробовал без DateValue, тогда содержимое ячейки как Date не воспринимается :(
посоветуите как быть!
Спасибо