Incluir formula en textbox

Estimados amig@s:

Tengo el siguiente código que muy gentilmente me colaboro un experto del foro

Private Sub TextBox1_Change()

TextBox2.Text = Mid(TextBox1.Text, 1, 3) & Label5.Caption

End Sub

Bueno lo que hace es extraer los 3 primero caracteres del texto, y bueno lo que quiero es incluir un código más es : =A!O10 . Este código es para hipervincular hojas, ya tengo el código para registrar el valor de los textbox y quisiera que en un textbox3 registrar este valor más, gracias por su tiempo y ayuda.

Saludos

Jesús