Alguem ai conhece este componente?

tenho um codigo que vai receber uma matricula q deve iniciar com uma letra Maiusc. seguido de numeros. Como este componente e um textbox q pode ser formatado pensei em usa-lo neste codigo, alguma dica? alguma propriedade deve ser alterada?

Case "incluir"
            Dim crit As Variant
            Dim strg As String
            strg = InputBox$("Digite a matrícula do funcionário: ", "Localizar Funcionario")
            crit = CVar(strg)
            If strg = Empty Then
                MsgBox "Matrícula não digitada!", vbCritical
            End If
            dtaFuncionarios.Recordset.Find "matricula = '" & crit & "'"
            If dtaFuncionarios.Recordset.EOF = False Then
               MsgBox "Matrícula já existe !", vbCritical
               dtaFuncionarios.Recordset.MoveMin
            Else
                dtaFuncionarios.Recordset.AddNew
                RichTextBoxMatricula.Text = strg
                txtnome.SetFocus
            End If

pelo componente não é possível, teria que ser algum código fora dos parâmetros do OCX, essa OCX é bem simples não tem muitos recursos.