Public Sub creafile(ByVal nomefile As String, tf As tipofile1)