Кто знает Visual Basic? Нужна помощь!!!

Что неправильно в этой функции? Ошибку выдает на 8й строке

Function GetMonth(sDate As String)
' Дата в виде: Вс 23.10.2011
Dim P1, P2 As Integer
Dim MоnthNum As Integer
Dim Result As String

P1 = InStr(sDate, ".")
P2 = InStr(P1 + 1, sDate, ".")
MоnthNum = CInt(Mid(sDate, P1 + 1, P2 - P1 - 1))

Result = ""
Select Case MоnthNum
Case 1
Result = "Январь"
Case 2
Result = "Февраль"
Case 3
Result = "Март"
Case 4
Result = "Апрель"
Case 5
Result = "Май"
Case 6
Result = "Июнь"
Case 7
Result = "Июль"
Case 8
Result = "Август"
Case 9
Result = "Сентябрь"
Case 10
Result = "Октябрь"
Case 11
Result = "Ноябрь"
Case 12
Result = "Декабрь"
Case Else
Result = "<Не определен>"
End Select

GetMоnth = Result
End Function

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.