En la línea 5 se encontró este pedazo de código


Set Ambiente.Bascula = CreateObject( "MSCommLib.MSComm" )


Se registró la librería y quedo resultó el Problema.