ник: snipe
dim asd as string
dim fileName as string 'Имя файла
asd=Replace(replace(replace(fileName,"№","");"Заявка";"")," ","")
Select case left(asd,1)
case "к": ' делаем движение раз
case "р": ' делаем движение два
case "с": ' делаем движение три
case else msgbox "Хто вбил не правильное имя файла?"
end select