Private Sub Command1_Click Dim sifre As Byte a = Val(InputBox If sifre = 35 Then a = MsgBox Else sifre<35 then a = MsgBox Else: If sifre > 35 Then a = MsgBox End If End Sub şimdi ben bir login progu yapmak için deniyim dedim ama sorun çıktı ve yapamıyorum şimdiden teşekkürler -