Dim kutu, sifre As String
        Dim i As Integer

        sifre = "123"

        For i = 1 To 3
            kutu = InputBox("Şifre Giriniz")
            If kutu = sifre Then
                MsgBox("Programa Hoşgeldiniz!")
                Exit For
            Else
                MsgBox("Hatalı Şifre Girdiniz. Lütfen Tekrar Deneyiniz.")
            End If
        Next