How to Write this VB6.0 Function in VB.net

Question

Public Sub WriteIntoText(Filename As String, DataString As String)

Dim F As Integer

F = FreeFile

Open Filename For Append As #F

Print #F, DataString

Close #F

End Sub