prova a non usare val(...)
fai semplicemente

if (form1.text1.text) then
bla bla bla
end if