Дописывать в файл координаты

Если не затруднит не подскажите код на VB, пожалуйста.

Попробуй так:
Private Sub WriteFile(filename As String, Contents As String)
'Запись в файл
     Dim FileNumber As Long
     FileNumber = FreeFile
     Open filename For Output As #FileNumber
     Print #FileNumber, Contents;
     Close #FileNumber
End Sub
Private Sub Command1_Click()
'Символ Chr(13) & Chr(10) - переход на другую строку файла
WriteFile "c:\test.txt", ReadFileToString("c:\test.txt") & Chr(13) & Chr(10) & "Дописываем, что хотим здесь"
End Sub
Public Function ReadFileToString(filename As String) As String
'Очень хорошая функция по закачке всего файла в
'оперативку!!! Возвращает весь файл в переменной-функции
'ReadFileToString
     Dim FileNumber As Long
     FileNumber = FreeFile
     Open filename For Input As #FileNumber
     ReadFileToString = Input(LOF(FileNumber), FileNumber)
     Close #FileNumber
End Function