文字列の一部分に0付き右詰めの数字を入れたいのだが・・・・
これがやりたい事なんだから
A.MIDステートメントを使うなら右辺の値を5桁固定にする
　Mid(a,2,5) = Format(123,"00000")
B.代入するの文字列を代入先の左側＋5桁固定の値＋代入先の右側にする
　a = Mid(a,1,1) & Format(123,"00000") & Mid(a,7,Len(a))
あたりに落ち着くのでは　
自分は誤解されないためにもBのようなコードがいいと思うけど