<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        font-size:11.0pt;
        font-family:"Calibri",sans-serif;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page WordSection1
        {size:612.0pt 792.0pt;
        margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
        {page:WordSection1;}
--></style>
</head>
<body lang="TR" link="blue" vlink="#954F72" style="word-wrap:break-word">
<div class="WordSection1">
<p class="MsoNormal">This code is working fine:</p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Public Sub CheckInput(sAllowed As String)<o:p></o:p></p>
<p class="MsoNormal">  Select Case Key.Code<o:p></o:p></p>
<p class="MsoNormal">    Case Key.Left, Key.Right, Key.BackSpace, Key.Delete, Key.End, Key.Home, Key.Enter, Key.Return, Key.ControlKey<o:p></o:p></p>
<p class="MsoNormal">      Return<o:p></o:p></p>
<p class="MsoNormal">    Default<o:p></o:p></p>
<p class="MsoNormal">      If Key.Text And If InStr(sAllowed, Key.Text) Then<o:p></o:p></p>
<p class="MsoNormal">         Return<o:p></o:p></p>
<p class="MsoNormal">      Endif<o:p></o:p></p>
<p class="MsoNormal">  End Select<o:p></o:p></p>
<p class="MsoNormal">  Stop Event<o:p></o:p></p>
<p class="MsoNormal">End<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">But CTRL + A no longer working for selecting all texts.<o:p></o:p></p>
</div>
</body>
</html>