¿Qué es exactamente lo que quieres hacer?
¿Sumar números o concatenar cadenas?
Si es lo primero, tienes que convertir el tipo de datos que recoges de la caja de texto de string a integer (por ejemplo) y eliminar ese salto de línea que ahí no pinta nada:
Text1.Text = CInt(Text1.Text) + Variable
Siempre y cuando la variable sea de tipo entero.
Si por el contrario quieres concatenar cadenas, sustituye el signo más (+) por "ampersand" (&) y asegúrate que Variable es de tipo string o haz un casting para convertirla. También puedes sustituir la constante vbCrLf por vbNewline (va más "rápido", cosas extrañas de VB):
Text1.Text = Text1.Text & vbNewline & CStr(Variable)
Estoy un poco oxidado, pero con eso yo creo que sales del paso