'***---
                '***---
                On Error GoTo LineGluk
                Dim strDateTemp$
                Dim strDate As Date

                strDateTemp = "22.10.2012" ' пусть будет так (на самом деле значение берется из текста - обрезается и получается точно в таком формате)
                strDate = Format(Now(), "Long Date") ' Синтаксис по MSDN. работает - для примера, так как дальше - непонятки полнейшие
                strDate = String.Format("dd/MMMM/yyyy", strDateTemp) 'Синтаксис по MSDN. ОШИБКА: "Приведение строки \"dd/MMMM/yyyy\" к типу \"Date\" является недопустимым."
                strDate = String.Format(strDateTemp, "dd/MMMM/yyyy") 'Переставляем аргументы местами - РАБОТАЕТ!!!
                strDate = Format(strDateTemp, "dd/MMMM/yyyy") 'ОШИБКА: "Приведение строки \"dd/MMMM/yyyy\" к типу \"Date\" является недопустимым.", Тип исключения = "System.InvalidCastException"	
                strDate = Format("dd MMMM yyyy", strDateTemp) ' Переставляем аргументы местами - РАБОТАЕТ!!!
                strDate = Format(strDateTemp) ' РАБОТАЕТ!!!
                strDate = Format(strDateTemp, "dddd, MMM d yyyy") 'ОШИБКА: "Приведение строки \"dddd, MMM d yyyy\" к типу \"Date\" является недопустимым."	string
                strDate = Format(strDateTemp, "Long Date") ' работает
                strDate = DateTime.ParseExact(strDateTemp, "dd/MMMM/yyyy", CultureInfo.InvariantCulture) ' ОШИБКА: "Строка не распознана как действительное значение DateTime."	string
                strDate = DateTime.ParseExact(strDateTemp, "Long Date", CultureInfo.InvariantCulture) ' ОШИБКА: "Строка не распознана как действительное значение DateTime."	string
                strDate = DateTime.ParseExact(strDate, "dd/MMMM/yyyy", CultureInfo.InvariantCulture) ' ОШИБКА: "Строка не распознана как действительное значение DateTime."	string
                strDate = DateTime.ParseExact(strDate, "Long Date", CultureInfo.InvariantCulture) ' ОШИБКА: "Строка не распознана как действительное значение DateTime."	string

LineGluk:
                MsgBox("Значение в переменной [strDate]: " & strDate & vbCrLf & _
                       "Значение в переменной [strDateTemp]: " & strDateTemp)
                Resume Next
                '***---
                '***---