vba/excelの桁数制限下での左(前方)0詰めと右(後方)半角空白詰めのひとつの手法

vbaの4桁右ゼロ詰めは、Format(key1,"0000")
EXCELシートのAnセルの内容を4桁左(前方)ゼロ詰めする場合、=TEXT(An,"0000")の関数を埋め込む。
vbaの40桁右(後方)半角空白詰めは、Left(key2 & String(40," "),40)