エクセル VBAラベル 表示？

質問

宜しくお願いいたします。
エクセル２０００にて
Private Sub UserForm_Initialize()
Dim TYU As Integer
Dim TYUB As Integer
For TYU = 3 To 100
If Worksheets("発注履歴").Cells(TYU, 1) = "" Then
TYUB = Right(Worksheets("発注履歴").Cells(TYU - 1, 1).Value, 3)
Label1.Caption = Format(Date, "yy") & TYUB + 1
Exit For
End If
Next TYU
End sub
上記のようにコードを書き込みました。
ワークシート発注履歴("A3")には注文番号０９０００１が
入力されております。
次回発注時、入力フォームを開いたときに
ラベル１に０９０００２を表示しようとしたのですが
０９２と表示されてしまい　２　のまえの００を表示できません。
どの様に修正すれば宜しいでしょうか？

回答No.1

myRange · ベストアンサー

Label1.Caption = Format(Date, "yy") & Format(TYUB + 1, "0000")

それから、０９０００２　が番号だとすると年以外の部分は４桁ですよね。
なので、その前のコードも

TYUB = Right(Worksheets("発注履歴").Cells(TYU - 1, 1).Value, ４)

お礼

出来ました！！
ありがとうございますm(__)m