Truncate Data in Excel VBA to prompt Pass or Fail

[VBWEE]

Hi, I am newbie to Excel VBA
I am need help on VBA to displaying Pass or Fail result in the txtResult box in "Form" tab. And the result should refer to "Data" tab on D column. As there contained excel formula to truncated the entered serial number & check the value in "Ref" tab. Hereby, is there any more simple way to run the formula in VBA? Million Thanks,