숫자만 입력

  Dim ch As String

        Dim ascii As Integer

        ch = e.KeyChar()

        ascii = Asc(ch)

        TextBox11.ImeMode = 3

        Select Case ascii

            Case 8, 9

            Case 48 To 57

            Case Else

                e.Handled = True

        End Select