[Resolvido]Criar Cx de texto com o valor da guia que está ativa.

Olá pessoal boa tarde,
Tenho um Formulário (frm_Caixa), nesse formulário tenho um Controle Guia com 2 páginas (Uma se chama "Receita" e a outra "Despesas"). Preciso colocar uma Caixa de Texto em meu Formulário, essa caixa deve ter o valor igual ao nome da Guia que está ativa.
Ex. Se eu estiver com a guia Receita sendo exibida em minha tela a caixa de texto deve ter o valor "Receita", ao clicar e passar para a guia Despesas a caixa de texto deve alterar para o valor "Despesas".

Alguém pode me ajudar a fazer isso funcionar? Obrigado

Bom dia irmão.
Tentei fazer um controle mais rasurável com menos linha mas não deu. da uma olhada para ve se esse te ajuda
a tag fica no evento> marca
abç

Bom dia crysostomo, valeu por responder irmão
abri aqui e não funcionou nem mesmo do exemplo que enviou.

ao clicar na aba depois você clica dentro da caixa guia que vai aparecer

Boa tarde crysostomo, sua idéia foi legal mas estava procurando algo automatizado, sem precisar clicar dentro das guias como no seu exemplo, agradeço pelo tempo e pelo retorno.
Consegui resolver colocando um If direto no Controle de Guias, no evento ao clicar coloquei o seguinte comando:

Private Sub CtlGuia6_Click()
If Me.CtlGuia6 = 0 Then
Me.txtguiaativa = "Receita"
Else
Me.txtguiaativa = "Despesas"
End If
End Sub

Ai funcionou certinho.
Mais uma vez agradeço pela ajuda. Abraços.

no meu esse código não estava dando certo aqui. O bom que te ajudou .
Vlw