Attribute VB_Name = "Module1"
Option Explicit

Public Type vestiti
cod As Long
descrizione As String * 10
IE As String * 1
num As Integer
prezzo As Currency
End Type

Public tabella(1 To 100) As vestiti
Public capi As vestiti
Public ultimorec As Long
Public posizione As Long