Please try: function GetDigits() local oDlg, oGet, cGet, cPic cGet := Space( 8 ) cPic := "99999.99" DEFINE DIALOG oDlg SIZE 300,160 PIXEL TRUEPIXEL @ 40,40 GET oGet VAR cGet PICTURE cPic SIZE 100,20 PIXEL OF oDlg @ 80,40 BUTTON "OK" SIZE 60,40 PIXEL ...