(VB) Проблема с сохранением

[phantom4eg]

Ребят,помогите с сохранением файла...
Собственно в чем проблема.. Есть процедура открытия, сохранения, и пересохранения.. Открытие и пересохранение работают отлично,но само сохранение никак.. В чем проблема я вижу,сохранение чего нужно указано и полностью работает,но я не знаю как задать сохранение в уже открытый файл, который открывал через проводник...

Вот код..

Public Sub Open_Click()
CommonDialog1.ShowOpen
nam$ = CommonDialog1.FileName
If nam <> "*.txt" Then
Open nam For Input As #1
Do While Not EOF(1)
  Input #1, v1$, v2$, v3$, v4$, v5$, v6$, v7$
  Predpriatie.AddItem v1
  Tcheh.AddItem v2
  Naimenovanie.AddItem v3
  Kolvo.AddItem v4
  Data.AddItem v5
  Location.AddItem v6
  Familia.AddItem v7
Loop
End If
Close (1)
fileopen = True
End Sub

Private Sub save_Click()
??????????????????????????????
Call sav
End Sub

Private Sub save_As_Click()
CommonDialog1.ShowSave
nam$ = CommonDialog1.FileName
Open nam For Output As #1
Call sav
         Close (1)
End Sub

Sub sav()
         For i = 0 To Predpriatie.ListCount - 1
            Write #1, Predpriatie.List(i), Tcheh.List(i), Naimenovanie.List(i), Kolvo.List(i), Data.List(i), Location.List(i), Familia.List(i)
        Next
End Sub