1) Usa la combinazione di questi 3 casi in cui valore è il contenuto del campo hobby.
if Not IsEmpty(valore) AND Not IsNull(valore) AND valore <>"" then
'Scrivi il campo hobby
end if

2) Per avere i primi 30 caratteri di una stringa usa Left(Stringa, 30)