Excel - kyrillischen Text auswerten

[Gerd L]

Hallo,
hier das Problem
Ich habe in einer Excel-Zelle den Monat in kyrillichen Buchstaben und brauche die Monatszahl. Wie kann ich den Monat ermitteln?

In der Excel-Zelle steht:
'№ 8888 от 31 октября 2012 г.'
In dem WideString steht:
'? 8888 ?? 31 ??????? 2012 ?.'

var
ws:widestring;
whv:variant;

....
whv:=Sheet.Cells[13,2].value2;
Sheet.Cells[13,40].value2:=whv;
ws:=vartowidestr(whv);

Ich nutze dafür Delphi6PE!

Vielen dank im Voraus
Gerd