ник: snipe
если a=10 and b=5 - присваивание
то
Select case left(asd,1)
case "к"
a=10
b=5
case "р"
a=10
b=7
case "с"
a=12
b=12
case else
msgbox "Хто вбил не правильное имя файла?"
end select
если это дополнительное условие
то
Select case left(asd,1)
case "к"
if a=10 and b=5 then
.....
....
else
....
....
end if
case "р"
if a=10 and b=7 then
.....
....
else
....
....
end if
case "с"
if a=12 and b=12 then
.....
....
else
....
....
end if
case else
msgbox "Хто вбил не правильное имя файла?"
end select