कोड को पढ़ने के लिए पत्र केवल vb में 6

कोड को पढ़ने के लिए पत्र केवल vb में 6

Select Case keyascii
            Case Asc("A") To Asc("Z") 
            Case Asc("a") To Asc("z")
            Case Else
                MsgBox "Alphabets not allowed!", vbCritical
        End Select