Concatenación

Tengo el siguiente procedimiento. Necesito que el valor que esta en el vector
no me lo tome como texto sino como el valor del TextBox.

Como lo podría hacer?

***************************
Dim a(5) As String
Dim i As Integer
a(0) = "Txtpro.Value" 'TextBox
a(1) = "Txtnom_pro.value" 'TextBox



For i = 0 To 1
Worksheets("BDProyecto").Cells(2, i + 1).Value = a(i)
Next
**********************

Es decir que me lo interprete como
Worksheets("BDProyecto").Cells(2, i + 1).Value = Txrpro.value

Saludos,
JUDAJIME