Недостатки:
Если писать 1001 то получается "Одна тысяча одна руб." и 2002 "Две тысячи две руб."
Select Case Ed
Case 1
s$ = " один"
If R > 1 Then s$ = " одна"
Case 2
s$ > " два"
If R = 1 Then s$ = " две"
заменил на
Select Case Ed
Case 1
s$ = " один"
If R = 1 Then s$ = " одна"
Case 2
s$ = " два"
If R = 1 Then s$ = " две"