Приветствую!  
Есть необходимость перенести скопированные данные в NotePad.  
 
Следующий код прекрасно работает:  
 
=================  
Dim RetVal  
RetVal = Shell("C:\WINDOWS\notepad.exe", 1)  
DoEvents  
SendKeys "^v", 100  
=================  
 
Но работает до тех пор, пока у пользователя не включена русская раскладка клавиатуры.    
Как забороть?