[مساعدة]

السلام عليكم

تفضل الكود

كود :

Dim txt As String = "مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة"

Dim sp() As String = Split(txt, " ")
Dim rt As String

For i = 0 To sp.Length - 1
    If IsNumeric(sp(i)) Then sp(i) = sp(i) * 2
    rt = rt & " " & sp(i)
Next

MsgBox(rt)