merhaba regedite ekleme yapan kod var bunun icerisine her 5 haneli bir numara girilmesi gerekiyor 5 haneli numara girmeden kapatılmasını engellemek istiyorum yardımcı olabilirmisiniz

'---------------------------
Dim response
Set WshShell = WScript.CreateObject("WScript.Shell")
response = InputBox("Lutfen Extension Numarasını Giriniz:","Extension")
If Trim(response) "" Then
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\TeleAp\CisKernel\ Exte nsion", response, "REG_SZ"
End if
'---------------------------
__________________