Bu kodda geçti veya kaldı mesajları gözükmüyor, mesaj kutusu boş geliyor, sebebi ne olabilir?

[tseker71]

Sub nnot()

Dim a As Integer
Dim b As Integer
a = InputBox("sayı giriniz")
b = 50
Select Case b
Case Is > a
MsgBox "kaldı”"
Case Is <= a
MsgBox (geçti)
End Select

End Sub

 

[tseker71]

Çözdüm,
silemediğim için cevapla belirtmek istedim.

Çalışan kod da aşağıda

Sub nnot()

Dim a As Integer
Dim b As Integer
a = InputBox("sayı giriniz")
b = 50
Select Case b
Case Is > a
MsgBox "kaldı”"
Case Is <= a
MsgBox "geçti"
End Select

End Sub