Public Sub ukol()
   Dim cislo, i As Integer
   cislo = 0
   path = "C:\Jitka"
   Open path & "\In.txt" For Output As #1
   Print #1, "bylo zadano cislo: " & cislo
   Print #1, "jeho delitele jsou: "
   
   'tady bude cyklus ktery do vyse otevreneho textoveho souboru vypise vsechny delitele cisla
   
   Close #1
   MsgBox "done"
End Sub