Mascara TexBox

Question

1- Excel 2003 2 - Montei um formulario de cadastro com n campos um dele é o RG. Copie de algum lugar a mascara do do CPF e modifiquei para 99.999.999-9 só que alguns RGs terminan em X e quando digito X a mascara não aceita o que devo modificar?

Private Sub Txt_Cad_RG_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'AQUI É O TEXTBOX, NO CASO CHAMA-SE Txt_Cad_RG;
    Txt_Cad_RG.MaxLength = 12
    Select Case KeyAscii
    Case 8, 48 To 57
    If Len(Txt_Cad_RG) = 2 Or Len(Txt_Cad_RG) = 6 Then
    Txt_Cad_RG.Text = Txt_Cad_RG.Text & "."
    SendKeys "{End}", True
    ElseIf Len(Txt_Cad_RG) = 10 Then
    Txt_Cad_RG.Text = Txt_Cad_RG & "-"
    SendKeys "{End}", True
    End If
    Case Else
    KeyAscii = 0
    End Select
End Sub

Agradeço antecipadamenbte

Carlos