ASubMySub(ByValm%，ByRefn%)BSubMySub(ByValm!，ByValn!)CSubMySub(ByValm%，ByValn%)asIntegerDSubMySub(ByValm!，ByRefn!)asIntegerESubMySub(ByValm%，ByValn%())