codice:
If TRIM(text1.text) =TRIM(richtextbox1.text)  and TRIM( text2.text) =TRIM( richtextbox2.text)  then 
   scheda.show 
else 
   msgbox ("Hais bagliato") 
end if