[VBA/EXCEL] Funzioni e valori di ritorno

[Aki]

Ave populus,
nel vba di excel, ho questo listato:

sub MAIN()
   dim cod as string

   cod = DATO(1)
end sub

function DATO(col as integer) as string
   dim num as string

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

ma cod non viene valorizzato, è sempre uguale a "", mentre dovrebbe assumere il valore di ritono della funzione DATO; mentre num è perfettamente valorizzato

come mai?