تايپ عدد با درج حرف و صفر قبل از آن

[nazanin_90]

با سلام
ميخواهم وقتي در يك تكست باكس A5 وارد كردم بعد از رخداد آپديت تكست باكس بصورت A000005 درآيد و اگر عدد دورقمي وارد شده يكي از صفرها كم و بصورت A000055 شود و اگر عدد سه رقمي وارد بصورت A000555 شود . .
با تشكر

[CsT]

با Format هم میتونی بنویسی، بستگی داره چی میخوای بنویسی، بعد این مقدار اگه هگزا هست یه کار دیگه باید کرد، اما چیزی که خواستی با توجه به طول رشته ای که دادی کدش این میشه !

Text1.Text = Left(Text1.Text, 1) & String(7 - Len(Text1.Text), "0") & Right(Text1.Text, Len(Text1.Text) - 1)