Привет всем
Сегодня первый день пришлось работать с
visual basic
и возникла первая проблема
с преобразованием строки в дату
нашел вот такое решение

Dim dtm1 As Data
Dim sDate1 As String

sDate1 = Text1.Text

Dim iYear As Integer
Dim iMonth As Integer
Dim iDay As Integer

iDay = Val(Left(sDate1, 2))
iMonth = Val(Mid(sDate1, 4, 6))
iYear = Val(Mid(sDate1, 7, 11))

dtm1 = DateSerial(iYear, iMonth, iDay)
'dtm1 = DateValue(sDate1)

и вот на любой из последних строк прекрашяется работа
приложения. Не могу понять в чем дело.
Я думаю опытные программисты на бейсики знают в чем здесь проблема.
Зарание благодарю.

С уважением,
Виктор