Gerçi gelişigüzel sayı almakla ilgil örnek var ama sizin isteğinize uygulamak gerekir.
Kod:
Private Sub Komut1_Click()
Dim MyValue, Value
Value = "11"
For x = 1 To 5
MyValue = Int((9 * Rnd) + 1)
Value = Value & CStr(MyValue)
Next x
Value = CDbl(Value)
Me.Metin3 = Value
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.