ตัวอย่างการใช้ Decimal.TryParse

Dim result as Decimal = 0.0
if Decimal.TryParse(txt1.text, result) then
  ' valid entry
else
  ' invalid entry
end if