Почему срабатывает функция MessageBox при введенном значении,
Например,  1 . 000  , или  123 . 000 . НЕ ВСЕГДА,
НО ВЫВОДИТСЯ СООБЩЕНИЕ ФУНКЦИИ MessageBox
Апробировал при масках
###,###,###,## 0 . 000 
###,###,###,###. 000 

Integer li_MyAnswer
ldbl_DoubleNumber = double(em_1_quantity.text)
//+- If Double(em_1_quantity.text) =  0 . 000  
//+ MessageBox("","12.Введено  число отличное от НОЛЯ, а именно~n" + string(ldbl_DoubleNumber))
Почему 
If ldbl_DoubleNumber =  0 . 000  Then
	li_MyAnswer =	MessageBox("", & 
	"Не введено значение"  + &
	 "Введите! ")	
	 Return
End If
MessageBox("","14.Введено  число отличное от НОЛЯ, а именно~n" + string(ldbl_DoubleNumber))

Anatoly Moskovsky 
ИСКРЕННЕ БЛАГОДАРЮ