private sub form_load() msgbox calc_time() end sub private function calc_time() as date calc_time=date end function