Две процедуры, проверяющие, введено ли в TextBox целое или десятичное число. При вставке из буфера обмена урезают ставленное справа до числа, при вводе с клавиатуры — создают ощущение "отключения" "запрещённых" клавиш. Точка и запятая автоматически заменяются установленным в настройках десятичным разделителем.