Sub kirjutus1()
  Open "tervitus.txt" For Output As #1
  Print #1, "Tere"
  Close #1
End Sub