Dim a, b, c, d, ort As Integer

     a = Val(InputBox("vize notunuz giriniz", "vize"))

        b = Val(InputBox("final notunuzu giriniz", "final"))

        ort = (a * 0.4) + (b * 0.6)

        If ort >= 55 & ort > (101) Then

            MsgBox("geçti" & ort)





      ( ort < 55 )("kaldı" & ort)


        Else
            MsgBox("hatalı giriş")


        End If