toSquare = Function[{x}, x^2]

Button["Export as package", toPackage["myPackageName.m", {toSquare}]]

BeginPackage["Square`"];
toSquare::usage="toSquare[x] squares numbers.";
toSquare=Function[{x},x^2];
EndPackage[]