Não sei se vai te atender esse exemplo:

Select Case KeyAscii
        Case 8, 48 To 57
            Me.ComboBox1.MaxLength = 17
            If Len(ComboBox1) = 4 Then ComboBox1 = ComboBox1 + "."
            If Len(ComboBox1) = 9 Then ComboBox1 = ComboBox1 + "."
            If Len(ComboBox1) = 12 Then ComboBox1 = ComboBox1 + "."
        Case Else
            KeyAscii = 0
    End Select

Experimente:

Case 31 To 60

Do help Excel

Obrigatória se aparecer Case. Lista delimitada de uma ou mais das seguintes formas: expression, expression To expression, Is comparisonoperator expression. A palavra-chave To especifica um intervalo de valores. Se você usar a palavra-chave To, o valor menor deve aparecer antes de To. Use a palavra-chave Is com operadores de comparação (exceto Is e Like) para especificar um intervalo de valores. Se não for fornecida, a palavra-chave Is será inserida automaticamente