O código a seguir foi criado, apenas, para facilitar a compreensão da minha dúvida a qual não se refere, exatamente, a ele. Minha dúvida é a seguinte: ao executar o código abaixo, eu gostaria que valor da variável "x" (atribuído na macro Teste_1) fosse "levado" para a macro Teste_2. Neste caso, por exemplo, atribuindo o valor 25 à variável, "x", o resultado final deverá ser 50. Não desejo alterar a estrutura do código, exceto nas atribuições da variáveis (privada, pública, global, etc.).

Public Sub Teste_1()
Dim x As Integer
x = InputBox("Entre com o valor de x.")
Call Teste_2
MsgBox ("O valor de x é " & a & ".")
End Sub

Public Sub Teste_2()
Dim x As Integer
Dim a As Integer
a = 2 * x
End Sub