VB: in Textdatei zu beginn springen und darüber schreiben

[Chrisi99]

ich bräuchte diese Funktion für eine Protokollierfunktion:

ich öffne eine Textdatei, das Programm springt an den Anfang und fügt den Text aus einer Textbox darüber ein.

Private Sub cmdSave_Click()
Dim FN As Integer

FN = FreeFile()
Open m_strFileName For Output As #FN
Write #FN, Text1.Text
Close #FN
End Sub


kann ich diese Funktion dazu verwenden- und wie schaut das ganze aus?

liebe Grüße