(28/05/2015, 14:54)47terminator yazdı: merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 

        Dim a As Integer
        Dim sayi As Integer
        Dim miktar As Integer
        Dim buyuk As Integer
        miktar = 4
        While (a < miktar)

            sayi = InputBox("Sayı giriniz")
            If (sayi > buyuk And sayi < 100) Then
                buyuk = sayi
            End If
            a = a + 1

        End While
        MsgBox(buyuk)

Umarım işinize yarar.