В файлі змінено тільки
lUnits = Application.InputBox(vbCr & vbCr & vbCr & vbCr & "Ціна товару...", "Поле для вводу", Type:=1)
Внаслідок цього при вводі не сприймаються букви, в т.ч і крапка
Юрій, а тут помогли (-ло)?
http://www.planetaexcel.ru/forum/index. … sage641439