flagnum=Isnumeric(pSum$) 'amount to pay If flagnum=False Then If Instr(pSum$,",")=0 Then flagnum1$=Strleft(pSum$,".") flagnum2$=Strrightback(pSum$,".") pSum$=flagnum1$&","&flagnum2$ Else flagnum1$=Strleft(pSum$,",") flagnum2$=Strrightback(pSum$,",") pSum$=flagnum1$&"."&flagnum2$ End If End If