Problema de cuadro de texto en vb

Escribe un sub separado de la siguiente manera:

Public Sub addtotext(text As TextBox, str As String)

text.text = text.text str;

End Sub

En el futuro, si encuentra el texto1.text="llkj jdhuo" original, cámbielo a: addtotext text1, "llkj jdhuo".