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