Soru inputbox buyuk kucuk harf sorunu

[massgrave]

MERHABA BUTONA EVET YAZARAK KUCUKBİR GUVENLİK ADIMI YAPMAK İSTEDİM FAKAT KÜÇÜK HARF YAZDIĞIMIZDA KABUL ETMİYOR.
BÜYÜK-KÜÇÜK HARF DUYARLILIĞI İÇİN NE YAPMALIYIM?

Private Sub CommandButton6_Click()
sifre = InputBox("İŞLEM İÇİN 'EVET' YAZMALISIN", "GUVENLIK ADIMI")
If sifre = EVET Then
Else
MsgBox "METIN UYUSMADI"
Exit Sub
End If

 

[halit3]

Bunu bir dene

Private Sub CommandButton6_Click()
sifre = InputBox("İŞLEM İÇİN 'EVET' YAZMALISIN", "GUVENLIK ADIMI")
If UCase(sifre) = "EVET" Then
Else
MsgBox "METIN UYUSMADI"
End If
End If

 

[massgrave]

Teşekkürler işimi gördü.