محدود کردن کارکتر

[0636124]

من می خوام در این برنامه text3 به غیر 511 از هفت رقم بیشتر نباشد که با 511 می شود 10 رقم

Private Sub Command1_Click()

a = 511

b = 9000000

Text1 = a

Text2 = Int(Rnd * b)

Text3 = Text1 + Text2

Label1 = Text3

End Sub