Visual Basic - Como escribo datos en una archivo de texto

Hola necesito tu ayuda, necesito saber como puedo guardar datos en una archivo de texto sin que se elimine su contenido anterior, que los datos nuevos se sumen a los que ya existen en el archivo. Muchas gracias saludos desde Chile...

Private Sub cmdGuardar_Click()
Dim T As String
T = txtTexto
Direccion = FreeFile
Open "c:\Temp\documento2.txt" For Append As Direccion
Print #Direccion, T
Close Direccion
End Sub
'
' Saludos