ciao, devi dare il valore di ritorno alla funzione..
codice:
function DATO(col as integer) as string
   dim num as string

   num = Active.Cells(1, col)
   DATO=num
end function