Olá Joaquim!
Analisei o seu projeto e não encontrei erros, apenas tive que alterar a porta COM para 3 e o peso foi capturado.
Verifique se a porta que esta usando é correspondente a que esta ligada na balança ou vai alterando a porta para testar.
Segue o seu projeto com uma pequena alteração na linha:
Me.Peso = Mid(strData, 7, 5)