Try
     motor = New ErpBS()
     motor.AbreEmpresaTrabalho(EnumTipoPlataforma.tpEmpresarial, PRIEmpresa, PRIUser, PRIPass)
Catch ex As Exception
     MsgBox(ex.Message)
End Try