Извлечь текст из ячейки

[Оля 222587]

Здравствуйте!
Помогите пожалуйста.
Нужно извлечь текст между одинаковыми символами "-" из ячейки!!!
сузуки-sx4-da10b-dk27.www
Нужно извлечь текст sx4.
между 1м и 2м -

[R71MT]

Оля 222587, а причём тут опрос?
Может вы хотели вопрос задать, а не опрос?

[newerow1989]

var s:string;
    i:integer;
begin
   Write('s = '); Readln(s);
   i:=Pos('-',s);
   If i>0 then
      Delete(s,1,i);
   i:=Pos('-',s);
   If i>0 then
      Delete(s,i,Length(s));
   Writeln(s);
   Readln;
end.

[Оля 222587]

Да хотела вопрос))))
а без макроса это нельзя сделать????

[Оля 222587]

спасибо.
а без макроса никак нельзя???

[digitalis]

Это не макрос, а код на Паскале Вероятно, речь идет об Excel'е ?