Visual Basic - PORQUE ESTO NO ME FUNCIONA

ESTOY TRATANDO DE LEER LOS DATOS DE UNA BALANZA CONECTADA AL PUERTO COM1

Private Sub Form_Load()
compeso.CommPort = 1
compeso.Settings = "9600,E"
compeso.PortOpen = True
compeso.InputLen = 0
End Sub

Private Sub Command1_Click()
Dim Speso As String
compeso.Output = "P"
Speso = compeso.InputLen
Label1.Caption = Speso
compeso.PortOpen = False

End Sub

El codigo esta bien, me parece que el Com no te responde o esta mal la direccion del port la cual no recuerdo bien de memoria, revisa que este habilitado el port, algun error tiene que darte y de ser asi lo analizamos