Replacing Lines in an text file

[bedowin]

I need to replace the first line of a text file with some other text. Can anyone give me an example of how to do it? This is what I have so far, but it just appends to the bottom of the file.

Private Sub cmdConvert_Click()
    
    Dim intnum As Integer
    intnum = FreeFile
        Open CommonDialog1.FileName For Append As intnum
          Print #intnum, "This is the line I want to replace"
       Close #intnum
End Sub