Fin qui c'ero arrivato anche io solo che purtroppo nel programmino che la usa non funziona.

la mia difficoltà NON CONOSCENDO il VB ma solo da qualche mese il VB.NET

è capire come si traducono
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "SerialCheck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

e a cosa servono, la classe in se non mi da problemi di traduzione, è banale
ma questi attribute???