mYVAR= MarkdownAmount myLen = len(mYVAR) mYVAR=mid ( mYVAR ,5,myLen-4) myVal=val(mYVAR) mYVAR="SAR 13.25" myLen = len(mYVAR) mYVAR=mid ( mYVAR ,5,myLen-4) myVal=val(mYVAR) بسم الله الرحمن الرحيم أولاً أنا مش عارف أنتو بتكتبوا كود vb و لا VB .Net و لا VBA على العموم بصو الكود ده و وقولوا رأيكم: j=len(MarkdownAmount) for i= 1 to j T1=mid(MarkdownAmount,i,j-i) if val(T1)>0 and happen=false then happen=true M_Val=val(t1) end if next بإذن الله مهما كان الرقم الكود ده هيحطهولك في المتغير M_Val