Private Sub Command1_Click()
Dim Cevap As String
Dim Sayi(9999) As Integer
Dim x As Integer
Dim kucuk As Integer
Cevap = InputBox("Kac adet sayı gireceksiniz?", "Sayı adedi gir")
If Not IsNumeric(Cevap) Then Exit Sub
kucuk = Sayi(1)
Do While x < Cevap
x = x + 1
Sayi(x) = InputBox(x & ".sayıyı giriniz.", "Sayı gir")

If Sayi(x) < kucuk Then kucuk = Sayi(x)
Text1.Text = kucuk
Loop

End Sub
( BU KODLA GİRİLEN SAYILARIN EN KUCUGUNU BULMAYA CALISIYORUM AMA SIFIR BULUYO SUREKLI ARKADASLAR YARDIMCI OLURSANIZ SEVİNİRİM )
__________________