пробвай нещо от сорта. дори и да не тръгне на твоята версия експериментирай
On Error GoTo greda
if DTB.Text*1 >0 then
DTB.BackColor = Color.White
else
greda
end if


Exit Sub

greda:
MsgBox("Incorrect input data!", vbExclamation)
DTB.BackColor = Color.Red
Resume Next