[kapetang]

Γιώργο, όπως ήταν διαμορφωμένος ο κώδικας, παρουσιάζοντας διάφορα InputBox, έδινε τη δυνατότητα προσθήκης στο αρχείο πολλών αριθμών.

Γι’ αυτό που θέλεις δοκίμασε τον κώδικα:

Sub CreateTextFile(sFile As String)
    Dim nFile As Integer, sNum As String

    'Ο επόμενος ελεύθερος αριθμός για ταυτότητα αρχείου
    nFile = FreeFile

    'Άνοιγμα αρχείου για εγγραφή δεδομένων
    Open sFile For Output As #nFile

    sNum = Nz(Forms!StartForm.CurrentSVN, "")

    If sNum <> "" Then
        Print #nFile, "[" & sNum & "]"
    End If

    Close #nFile

End Sub