0埋め(Format)

MsgBox Format(ActiveCell,”0000″)