Merhaba arkadaşlar bir problemim var nasıl yapıcağımı çözemedim bir kısmını yaptım ama tam calışmıyor ufak bir program..

Konusu :iki tane button 1 tane de
listbox var 1.button sayi üret burada randomla sayı üretecez ürettigimiz sayiyi listboxla ekliceğiz. 2.button da tahmin buttonu ürettigimiz sayi için kullancağız .

Programın amacı: 1.buttondan girilen sayıyı listboxda ekledikden sonra 2. button da sayı giricez bu sayi inputboxdan olacak.Bizim rasgele ürettiğimiz sayi mesela 7 tahmin buttonunda girdigimiz sayı 5 msgboxla " Daha büyük bir sayi giriniz yazacak " 2. defa bir sayi giriyoruz bu defa 8 olsun msgbox " Daha küçük bir sayi giriniz yazacak " 3. defa giriliyor sayi 7 olsun msgbox " Girilen sayi dogru " böyle bir şey ben yaptım fakat bazı yerleri calışmıyor nerede yalnışlık yaptım bilmiyorum.

Benim yaptıgım

Dim sayi, tahmin As Integer
Button1_Click 
ListBox1.Items.Add(Int(Rnd() * 10))
 sayi = (Int(Rnd() * 10))
Button12_Click

tahmin = InputBox("Sayi Giriniz")
        If sayi < tahmin Then
            MsgBox("Daha büyük sayı giriniz")
        ElseIf sayi > tahmin Then
            MsgBox("Daha küçük sayi giriniz")
        ElseIf sayi = tahmin Then
            MsgBox("Dogru sayı girdiniz")


        End If