Como obter dinamicamente o valor do valor atual da guia de várias páginas?

Comunidade, Atualmente, estou escondendo minhas guias no meu formulário de usuário multipage, exceto para a guia atual. O usuário pode clicar nos botões para alternar entre as páginas. Alguns botões compartilham sub-rotinas. Quando um usuário clica em um botão, ele oculta a guia anterior quando a nova guia é selecionada. Eu suponho que esta é uma questão dupla.

1) Como posso obter o valor de seleção da guia anterior?

2) Como posso percorrer meus valores de tabulação? Meu objetivo é testar a legenda ou o valor da guia atual em relação a todos os outros. Descobri que isso seria uma maneira fácil de ocultar todos, independentemente de qual página e qual botão chama a sub-rotina.

Agora eu só tenho isso para um botão de guia ...

Sub NewCreditSetup()
    MultiPage1.Pages(1).Visible = True
    MultiPage1.Value = 1
    MultiPage1.Pages(0).Visible = False
    //More code displaying tab...irrelevant
End Sub  

questionAnswers(2)

yourAnswerToTheQuestion