6. Познай паролата

Sub Demo()
    Dim inputText As String
    inputText = "s3cr3t!P@ssw0rd"

    Dim result As String
    If inputText = "s3cr3t!P@ssw0rd" Then
        result = "Welcome"
    Else
        result = "Wrong password!"
    End If

    Debug.Print result
End Sub