Se e' gia' sul form allora perche' tenti di istanziarlo? Usa quello ...

Private Sub Command1_Click()
Dim Peso As String

MSComm1.CommPort = 1
MSComm1.PortOpen = True

Peso = MSComm1.Input

Text1.Text = Peso
MSComm1.PortOpen = False
End Sub
... in questo codice manca l'impostazione della velocita' e dei parametri della seriale ... a meno che tu non l'abbia impostato nelle proprieta' del controllo ...