[VB6] Leggere dati su RS-232

[dvde]

Già fatto.
Il codice l'ho scritto così...

Private Sub Command1_Click()
Dim MSComm1 As MSCommLib.MSComm
Set MSComm1 = New MSCommLib.MSComm
Dim Peso As Variant
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Peso = MSComm1.Input
Text1.Text = Peso
MSComm1.PortOpen = False
End Sub

solo che quando clikko sul pulsante mi appare un errore del tipo "Invalid use on NEW keyword" e il debug si posiziona su "Set MSComm1 = New MSCommLib.MSComm".
Come mai?