Lotus Script 校验有关问题

Lotus Script 校验问题！
一个文本域想做个校验，在提交校验的时候可以允许它为空，当时在有输入东西的时候必须是数字，问问该怎么做能！


If Not Isnumeric(doc.ContractAmount(0))Then
Msgbox "The Contract Amount Field value Must be a number,Please correct it."
Exit Sub
End If
我自己做了这个 它的提交校验时不允许为空！求大侠们帮帮忙啦！！！！！！！！！

------解决方案--------------------

VB code

If Trim(doc.ContractAmount(0)) <>""  and  Not Isnumeric(doc.ContractAmount(0)) Then  Msgbox "The Contract Amount Field value Must be a number,Please correct it."End If