Public Function Save(Path As Variant, File As Variant, Extention As Variant, A _
  As Variant)
    Dim F As Integer
 
    F = FreeFile
    Open Path & "\" & File & Extention For Output As #F
        Print #1, A
    Close #F
End Function

_______________________________________________________
Ihr da OHM macht doch WATT ihr VOLT!