Математические операции лишь с цифрами, при которых стоит определенный символ

[maxamaxoni]

Здравствуйте,

Хочу попросить помощи. Дело такое.

Есть ячейка комбо-бокс с названиями типа: Dodge Neon 3,2л - 10999Р

Р - это типа символ (вместо его будет евро)

Задача такая: как сделать, чтобы в новой/другой/пустой ячейке производились операции лишь с ЦИФРОЙ, возле которой стоит знак Р, т.е. в этом случае с цифрой 10999, а тот 3,2л вообще должен не играть никакой роли.

Процесс выглядит так: в комбо-боксе выбрал чего-то -> в следующей ячейке рядышком загорается сума (ну вот те 10999 как пример).

Заранее Спасибо большое!

[alex77755]

Private Sub ComboBox1_Click()
Dim P, t
P = "Р"
t = Split(Split(ComboBox1.Text, P, , vbTextCompare)(0))
    MsgBox t(UBound(t))
End Sub

[maxamaxoni]

Благодарю, alex77755)

[maxamaxoni]

Хм... Вернулся домой, проверил. Поменял на символ евра в коде. В итоге при выборе чего-то - вылазит мессаджбокс, где показывает цену в еврах. Но как же эти упомянутые, допустим, 5000€ вытащить в другую ячейку, допустим - E5. Это для того, чтобы я мог складывать/умножать и т.п. Пробовал по-колхозному без VBA - не получилось(( Уже бесить начинает.

Спасибо

[Hugo121]

Так берите то, что показывает msgbox и делайте с ним что угодно. Ну а сам msgbox естественно уберите из кода.